/\b\d+\b.* (??{@$_=sort{$a-$b}@$_,$&+$';$"=","})/,print"[@$_]
"for<>