Select Code to Download

while(<DATA>)        
    {
...


print "$_->[0]\t$_->[1]\n" for sort {$a->[0] <=> $b->[0]} values %cpy;

output:
30      microsoft
35      mozilla
40      opera
70      aol
76      netscape