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