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

##</code><code>##

print $fh,@list