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