@list1 = ("one","two","three","four");
@list2 = ("four","three","two","one");
$name = "list1";

if ($name eq "list1") {
    $list_ref = \@list1;
} elsif ($name eq "list2") {
    $list_ref = \@list2;
}
foreach $item (@{$list_ref}) {
    print "$item\n";
}