my $temp;
while (($entry,$temp) = each %my_hash) { 
  foreach $timeStamp ( sort keys %$temp) {

    my $hash_ref = $temp->{$timeStamp};

    my @tskeys = sort keys %$hash_ref;
    print $Hentry "$entry\t$timeStamp\t", scalar @tskeys;
    print $Hentry "\t$_\t", $hash_ref->{$_} for @tskeys;
    print $Hentry "\n";
  }
}