use strict; use warnings;

my @array1 = ( 1 .. 3 );
my @array2 = ( 4 .. 6 );

print2arrs( \@array1, \@array2 );

sub print2arrs {
  my ( $ref1, $ref2 ) = @_;
  print @$ref1;
  print @$ref2;
}