ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch5/sortnum.eg

Text File | 1992-10-18 | 86 b | 5 lines

sub bynumber { $a <=> $b; }

@raw = (1,16,2,32,4,64,8);
@sorted = sort bynumber @raw;