while() { chomp; @cpy=(); @cpy = split(/\|/); $cpy{$cpy[0]} = [@cpy]; } print "$_->[0]\t$_->[1]\n" for sort {$a->[0] <=> $b->[0]} values %cpy; #### output: 30 microsoft 35 mozilla 40 opera 70 aol 76 netscape