print $fh,@list; # ref($fh) = GLOB