exists $b{$k} or delete $a{$k} while ($k,$v) = each %a;