human.pl
::::::::::::::
@x=<>;$z=length"@x";%x=map{($x=lc)=~s/\d+/0
x($z-length$&).$&/ge;$_,$x}@x;print
sort{$x{$a}cmp$x{$b}}@x
::::::::::::::
select.pl
::::::::::::::
@_=<>;print splice@_,rand@_,1for 1..2
::::::::::::::
shuffle.pl
::::::::::::::
print splice@_,rand@_,1for 1..(@_=<>)