Similar to other responses, but this one lets you work with your original arrays:

my @list1 = ("one","two","three","four");
my @list2 = ("four","three","two","one");
my %lookup = ( list1 => \@list1, list2 => \@list2 );
my $name = "list1";

print "$_\n" for @{ $lookup{$name} };
[download]