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