human.pl:
print map$$_[0],sort{$$b[1]!~/\D/<=>$$a[1]!~/\D/||(grep$_,map$_>@$b||(($*=$$a[$_
])!~/\D/&&length$*<=>length$$b[$_])||$*cmp$$b[$_],1..@$a)[0]}sort{@$b<=>@$a}map[
$_,split/(\d+|\n)/,lc],<>