my @list=split /\n/,do {local $/; <$fh>};