delete @ta{grep !defined $ta{$_}, keys %ta};