Can this be done in perl?

Of course! Perl has a built-in sort function that allows you to supply a comparison function so you can specify how you want sorting to be done.

perldoc -f sort
[download]

For a more tutorial approach, see Randal's article on sorting, in which he introduces the Schwartzian Transform.