chomp( my @lines = <$infile> );