Help for this page
$hashr->{$name}->{$id}->{$comment}
for $k1 ( sort keys %$hashr ) { print "$k1\n"; ... print "$k2\t\t$k3\n"; } }