tie my @lines, 'Tie::File', $file or die 'tie failed';