sub h {
#23456789_123456789_123456789_123456789_123456789_1234
$x=0;$s=shift;$x={$_,[$x,0]}for sort{&$s($a,$b)}@_;%$x
}