use Modern::Perl; sub no_ref(\@\@) { my ($first, $second) = @_; say "First: @$first"; say "Second: @$second"; } my @alfa = (1 .. 10); my @beta = ('a' .. 'j'); no_ref @alfa, @beta;