my @lines = do { open my $fh, '<', $file or die "$file: $!\n"; <$fh> };