$;[$_]=$.--.$/for sort{$a-$b}@_=<>;print@;[@_]