qw() creates a list of strings. [...] makes it an anonymous array, i.e. an array reference. So, for @list1 and @list2, you can just

my $arr1 = \@list1;
my $arr2 = \@list2;
[download]

or, if you don't want to work directly with the lists, copy them:

my $arr1 = [ @list1 ];
my $arr2 = [ @list2 ];
[download]