You want to use a hash:

my %lists = (
    list1 => [("one","two","three","four")],
    list1 => [("four","three","two","one")],
);

my $list_ref = $lists{$name};
....
[download]

You can also use symbolic references, $list_ref = \@{"list1"}, but that's ugly.