> time perl -e '@ar[$_]=int(rand(1000)) for(0..25); print "List: @ar\n"; @str=sort(@ar);print "Str Cmp: @str\n"; @numr=sort{$a<=>$b} @ar;print "Num Cmp: @numr\n";'