print OUTD2 join("\t", q{ }, $k, @data), qq{\n};