chomp,$a++,print$b{/(\d+)$/,$1}||=$a," $_
"for sort{($x)=$a=~/ (\d+)/;$b=~/ (\d+)/;$1-$x}<>