print $fh join( "\t", @$line ), "\n";