in reply to How can I sort this data on the first field

One short sorting step: 
my %sort = map{ /^(\d+)\|(\w+)/ and $1, $2 } <DATA>;

print "$_ - $sort{$_} \n" for sort keys %sort;

[download]


In Section Seekers of Perl Wisdom