tie my @lines, 'Tie::File', $infile;