#23456789012345678901234567890123456789012345
$x=0;$s=shift;$x={$_,[$x,0]}for sort$s @_;%$x