Minor tweaks.

1 files changed, 11 insertions, 11 deletions

diff --git a/challenge-276/robbie-hatley/perl/ch-1.pl b/challenge-276/robbie-hatley/perl/ch-1.pl
index 2b66f7f281..560b9ba3f4 100755
--- a/challenge-276/robbie-hatley/perl/ch-1.pl
+++ b/challenge-276/robbie-hatley/perl/ch-1.pl
@@ -48,19 +48,18 @@ Output is to STDOUT and will be each input followed by the corresponding output.
 =cut
 
 # ------------------------------------------------------------------------------------------------------------
-# PRAGMAS, MODULES, VARIABLES, AND SUBS:
-
-use v5.38;
-$"=', ';
-sub complete_days (@times) {
-   my $cds = 0;
-   for    ( my $i =    0   ; $i <= $#times - 1 ; ++$i ) {
-      for ( my $j = $i + 1 ; $j <= $#times - 0 ; ++$j ) {
-         0 == ($times[$i]+$times[$j])%24 and ++$cds;
+# PRAGMAS, MODULES, AND SUBS:
+
+   use v5.38;
+   sub complete_days (@times) {
+      my $cds = 0;
+      for    ( my $i =    0   ; $i <= $#times - 1 ; ++$i ) {
+         for ( my $j = $i + 1 ; $j <= $#times - 0 ; ++$j ) {
+            0 == ($times[$i]+$times[$j])%24 and ++$cds;
+         }
       }
+      $cds;
    }
-   $cds;
-}
 
 # ------------------------------------------------------------------------------------------------------------
 # INPUTS:
@@ -81,6 +80,7 @@ my @arrays = @ARGV ? eval($ARGV[0]) :
 
 # ------------------------------------------------------------------------------------------------------------
 # MAIN BODY OF PROGRAM:
+$"=', ';
 for my $aref (@arrays) {
    say '';
    my @times = @$aref;