print $fh,@list