exists $b{$k} and $c{$k}=$v while ($k,$v) = each %a