Since noone's mentioned it, you could use tie::file to get the lines in from the file. (Not a sorting solution, but a nice way to grab from a file.) See

http://www.perlmonks.org/index.pl?node_id=432116