Select Code to Download

sub { ++$_ for @_ }->(my @arr = 'a' .. 'c'); print "@arr";
# Output: b c d

sub reverseArray {
    my @arr = @_;
...
        @{ $arr[$i] } = reverse @{ $arr[$i] };
    }
}

sub reverseArray {
    my @arr = @_;
...
        $arr[$i] = [ reverse @{ $arr[$i] } ];
    }
}