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