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