Select Code to Download

my @masterarray = ( \@array1, \@array2, \@array3 );

my $c = 0;
for my $a(@masterarray) { 
  print "Array: ", ++$c, "\n"; 
  print "  $_\n" for @$a;
}