my $temp;
while (($entry,$temp) = each %my_hash) {
  foreach $timeStamp ( sort keys %$temp) {
    my @tskeys = sort keys %{$temp->{$timeStamp}};
    print $Hentry "$entry\t$timeStamp\t", scalar @tskeys;
    print $Hentry "\t$_\t", $my_hash{$entry}{$timeStamp}{$_} for @tskeys;
    print $Hentry "\n";
  }
}