Perl Simple Sorts