@AoH_all = grep { not $exclude{ $_->{id} } } @AoH_all;