my $lines =()= <$file>;