$hashr->{$name}->{$id}->{$comment}

##</code><code>##

for $k1 ( sort keys %$hashr ) {
    print "$k1\n";
    for $k2 (sort keys %{$hashr->{ $k1 }} ) {
        $k3 = %{$hashr->{ $k1 }->{ $k2 }};
        print "$k2\t\t$k3\n";
    }
}