#ex_15-2
#Learning Perl, Appendix A, Exercise 15.2
chop(@nums = <STDIN>); # note special use of chop
@nums = sort { $a <=> $b } @nums;
foreach (@nums) {
  printf "%30g\n", $_;
}