say { $handles{$file_out} } join "\t", @some_data;