Select Code to Download

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

@list1 = ("one","two","three","four");
@list2 = ("four","three","two","one");
...
foreach $item (@{$list_ref}) {
    print "$item\n";
}