my %hash = (
    "name" => "lucas"
);

my $res = get_key("lucas");

sub get_key {
    foreach (my ($key, $value) = each(%hash)) {
        return "$key\n" and last if $value eq $_[0];
    }
}

$xpvhv = {
    array => [
        {
            next => {
                next => {
                    next => {
                        # usw
                    }, 
                    hek => 'key3',
                    val => 'value3',
                }, 
                hek => 'key2',
                val => 'value2',
            },
            hek => 'key',
            val => 'value',
        },  
        {
            next => {
                # usw
            },
            hek => 'key',
            val => 'value',
        },
      ],
      # magische felder fuer iterator, index, stash etc.
};

#!/usr/bin/perl
use warnings;
use strict;
my %a = (a => 'b', c => 'd', e => 'f');
my %b = reverse %a;
print $b{f}, "\n";

$ ./hashtest.pl
e

#!/usr/bin/perl
use warnings;
use Data::Dumper;
use strict;
my %a = (a => 'b', c => [qw/user1 user2 user3/], e => 'f');
my %b = reverse %a;
print Dumper(\%b);

$VAR1 = {
          'f' => 'e',
          'b' => 'a',
          'ARRAY(0x81522d8)' => 'c'
        };

use strict;
use warnings;

my %hash = (
    foo => "bar",
    bar => "baz",
    baz => "bar"
);

print join ", ", find_key( \%hash, 'bar' );
print "\n";

sub find_key {
    my ( $hash, $val ) = @_;
    grep { $$hash{$_} eq $val } keys %$hash;
}