while ( my ( $key, $value ) = each $hoh{$name} ) {
 do stuff;

}