http://www.perlmonks.org?node_id=451109

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Need to sort data on first field numerically and print to browser.
print "Content-type: text/html\n\n"; @someData = <DATA> __DATA__ 30|microsoft 70|aol 76|netscape 35|mozilla 40|opera