my %test = ('a' => {'b' => 'b'});

while ( my $name, $value ) = each(%test) )
{
    print $name1;
    while ( my ( $name2, $value2 ) = each(%test) )
    {
        print $name2;
    }
}