perl一次读取多行

open (TEST, "$infile")

while (<TEST>)

{ my $line_1=$_;

my $line_2=<TEST>;

my $line_3=<TEST>;

my $line_4=<TEST>;

}