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