print { $files[$i] } "stuff\n";
    print { $OK ? STDOUT : STDERR } "stuff\n";

##</code><code>##

print { $x{handle} } "Wow!\n";