my @array1 = ( 1, 2, 3, 4 );
my @array2 = ( 5, 6, 7, 9 );

printArrays( \@array1, \@array2 );

sub printArrays {
   my ( $first, $second ) = @_;
   print "@$first @$second\n";
}