diff options
| -rwxr-xr-x | challenge-261/robbie-hatley/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-261/robbie-hatley/perl/ch-2.pl b/challenge-261/robbie-hatley/perl/ch-2.pl index 46cd0190f6..fa349c4024 100755 --- a/challenge-261/robbie-hatley/perl/ch-2.pl +++ b/challenge-261/robbie-hatley/perl/ch-2.pl @@ -97,7 +97,7 @@ for my $aref (@arrays) { say ''; my @array = @$aref; my $start = pop @array; - say 'Array = (', join(', ', @$aref), ')'; + say 'Array = (', join(', ', @array), ')'; say 'Start = ', $start; if ( 0 == $start ) { say 'Error: $start may not be 0.'; |