use strict;
use warnings;
use Data::Dumper;

my @list1 = qw(a b c);
my @list2 = qw(d e f);

printem([@list1], [@list2]);

sub printem {
  my $list1 = shift or die "no list1";
  my $list2 = shift or die "no list2";
  print "list1: " . Dumper($list1);
  print "list2: " . Dumper($list2);
}