Select Code to Download

while(<TEST>){
    chomp;
...
    $list{$i} = [$1,$2];
    $i+=1;
}

foreach my $c (sort keys %list) {
    print "$list{$c}->[1],$list{$c}->[0]$/"
}

print map {"$_->[1], $_->[0]$/"} sort {lc($a->[1]) cmp lc($b->[1])} va
+lues %list;