Select Code to Download

sub reverseArray {
    for(my $i=0;$i<scalar(@_);$i++){
        @{$_[$i]} = reverse @{$_[$i]};
    }
}

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