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

##</code><code>##

sub reverseArray {
    my @arr = @_;
    for my $i (0 .. $#arr) {
        @{ $arr[$i] } = reverse @{ $arr[$i] };
    }
}

##</code><code>##

sub reverseArray {
    my @arr = @_;
    for my $i (0 .. $#arr) {
        $arr[$i] = [ reverse @{ $arr[$i] } ];
    }
}