human.pl
========
%x=map{($x=lc)=~s/\d+/0
x(999-length$&).$&/ge;$_,$x}@x=<>;print
sort{$x{$a}cmp$x{$b}}@x

shuffle.pl
==========
$i=rand@x,@x[$n=@x,$i]=($x[$i],$_)for<>;print@x

select.pl
=========
$i=rand@x,@x[$n=@x,$i]=($x[$i],$_)for<>;print@x[0,1]