use Modern::Perl;

sub two_arrays (\@\@) {
    my @first  = @{$_[0]};
    my @second = @{$_[1]};
    say "First array:  @first";
    say "Second array: @second";
}

my @one = qw/een twee drie/;
my @two = qw/nung song saam/;

two_arrays(@one, @two);