四個字 堅持到底

sub totol{
my $max; #這個前面一定要加my,否則上次使用過的值還會存在,因為是全域變數
chomp @_;
foreach(@_){
$max+=$_;

print reverse <>; #可以將檔案反向列印出,like tac

查了reverse doc..

reverse LIST