Perl 循环内没关闭文件句柄引发的问题

v-lhb-db01:/root/perl# cat 1.log 
1111
2222
3333
4444
5555
异常111
a1
a2
a3
a4
a5
java.lang.NullPointerException]
1
2
3
4
java.lang.NullPointerException
5
6
7
8

--------------------------------------------
#!/usr/bin/perl 
use POSIX;
my $dir  = '/root/perl';
my $file = '1.log';
$mon_file = "$dir/$file";
$IPMACHINE = "MBANKtest1";
$RTXNO="04657";
my $SDATE = strftime("%Y%m%d%H%M%S",localtime());
$UPLOADPATH = "/data/swap/mbanklog/$IPMACHINE-$SDATE$file";
print "\########################################################################################################################\n";
print "\######监控日志文件：          $mon_file\n";
print "\######监控服务器：            $IPMACHINE\n";
print "\######报警通知腾讯通号码：    $RTXNO\n";
print "\######当前报警时间戳：        $SDATE\n";

##########监控关键字，以空格隔开################
@war