my @list=<$fh>;