my (@keys, $out);
@keys = sort keys %$D;
print join "\t", @keys; print "\n";
$out = '';
$out .= $D->{$_} . "\t" for @keys;
chop $out; print $out, "\n";