>>700
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq4.html#How_do_I_sort_an_array_by_anyth
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perldsc.html