my @numbers;
push @numbers, split while <>; #将文件读入，使用split分割元素（split默认使用空白字符分割）后加入数组
for (sort {$a<=>$b} @numbers){ #遍历数组中的元素，排序后输出（$a和$b是默认的包全局变量）
printf "%20g\n",$_;
}
