while ( (my $key, my $value) = each %partners) {
	if ($item eq $key) {
		($partners,$email,$nickname,$realname,$postcode,$phone) = (@$value);
		##another, different action;
	}
}