my %difference = grep { exists $keep_ids{ $_->{id} } } @AoH_all;

##</code><code>##

  my @keepers = grep { exists $keep_ids{ $_->{id} } } @AoH_all;