in reply to store file handles in a hash

$handles{$file_out}->say( join "\t",@some_data );

In Section Seekers of Perl Wisdom