my @list = do{ my $fh; open($fh, $file) && return <$fh> };