$_&1?$\:$e.=1*$_.$/for sort{$a-$b}<>;print$e,$/