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