Select Code to Download

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

my $list_ref = $lists{$name};
....