@diff=grep { !exists $old_gp{$_} } keys %new_gp;