printf sort{$a-$b}map{map"@e"-@e[1]+abs,@e=@d[$_-1,$i++]}<>..(@d=sort{$a-$b}<>)