print { $fh } ...;
print $fh ...;     # Shorthand

print { FH } ...;
print FH ...;      # Same thing, but also works under strict 'vars'.

print { *FH                    } ...;
print { $a[$i]                 } ...;
print { $h{$k}                 } ...;
print { $o->get_fh()           } ...;
print { $e ? *STDERR : *STDOUT } ...;
etc.