#!/usr/bin/perl -w
use strict;
use warnings;
 
my @array1 = (1,2,3,4,5,6,7,8,9,10);
my @array2 = (10,20,30,40,50,60,70,80,90,100);
my @array3 = (100,200,300,400,500,600,700,800,900,1000);
my @array4 = (1000,2000,3000,4000,5000,6000,7000,8000,9000,10000);

reverse_all_arrays(\@array1, \@array2, \@array3, \@array4);

sub reverse_all_arrays{
  @$_ = reverse(@$_) for(@_);
}

#!/usr/bin/perl -w
use strict;
use warnings;
 
my @array1 = (1,2,3,4,5,6,7,8,9,10);
my @array2 = (10,20,30,40,50,60,70,80,90,100);
my @array3 = (100,200,300,400,500,600,700,800,900,1000);
my @array4 = (1000,2000,3000,4000,5000,6000,7000,8000,9000,10000);

my ($array1_ref, $array2_ref, $array3_ref, $array4_ref) = reverse_all_arrays(\@array1, \@array2, \@array3, \@array4);
@array1 = @$array1_ref;
@array2 = @$array2_ref;
@array3 = @$array3_ref;
@array4 = @$array4_ref;


sub reverse_all_arrays{
  my @ret;
  push( @ret, [reverse(@$_)] ) for(@_);
  return @ret;
}