Select Code to Download

delete @keep_ids{ map { $_->{id} } @AoH_one };

print Dumper (%keep_ids);

$VAR1 = '3';
$VAR2 = 1;