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