my ($key, @too_many) = mapp { $b eq $val ? $a : () } %hash;
! @too_many
    or die 'Too many ...';