新手求助:perl读取文本文件的问题

CODE:

my $file="11.txt";
my $tmpfile="tmp.txt";

open(MYFILE,$file) || die "Can not open the file: $!";
unlink $tmpfile if (-f $tmpfile);
open(TMPFILE,">>$tmpfile") || die "can not open tmpfile: $!";
while(<MYFILE>){
                ###如果是第一行,则继续读取下一行,这里该怎么写??
        my ($a,$b,$c,$d,$e,$f,$g)=split('\s+',$_);
        print "a: $a b: $b c: $c e: $e f: $f g: $g \n";
        my $sql = "insert into tt values(\'$b\',\'$c\',\'$d\',\'$e\',\'$f\',\'$g\');\n";
        print TMPFILE $sql;
}

close(MYFILE);
close(TMPFILE);