糟糕的:
my @Lines = qx(zcat $file);

foreach my $line(@Lines){
    ....
}

漂亮的：

open(FILE, '-|', "zcat -n '$file'");

while( <FILE> ){
    my $line =$_;
    ...
}

前者会大量占用内存