while ( (my $key, my $value) = each %partners) { if ($item eq $key) { ... } }