Select Code to Download

my %names=(one   => [1,2,3],
           two   => [4,5,6],
...
for (keys  %names){
        print "$_ => ", join (", ", @{$names{$_}} ), "\n";
}