my @difference;
for my $i ( 0 .. $#AoH_all) {
   for my $key (keys(%keep_ids)) {
      if ($AoH_all[$i]{'id'} == $key ) {
         $difference[$i] = $AoH_all[$i];
      }
   }
 }

##</code><code>##

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

##</code><code>##

$VAR1 = 'HASH(0x808bd2c)';
$VAR2 = undef;