chomp(my @list = <$fh>);