#!/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);

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

sub reverse_all_arrays{
  my @array_refs = @_;
  my @arrays_back = ();
  
  foreach(@array_refs){ 
    @ { $_ } = reverse(@ { $_ });
    push(@arrays_back, @ { $_ })
  }
  return # ?
}