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