while(<TEST>){
    chomp;
    /(\w+)\s+(\w+)/;
    print "$i : $2\,$1\n";
    $list{$i} = [$1,$2];
    $i+=1;
}

##</code><code>##

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

##</code><code>##

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