Select Code to Download

my @difference;
for my $i ( 0 .. $#AoH_all) {
...
      }
   }
 }

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

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