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

print Dumper (%keep_ids);

##</code><code>##

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