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