foreach $k(keys %hash){delete ($hash{$k}) unless exists $end{$_};}