Select Code to Download

use feature 'postderef'; # Needed in perl 5.20 and 5.22

my @aoh = (
...
  my ($id_1, $id_2) = delete $href->@{'id_1', 'id_2'};
  $hash{$id_1}{$id_2} = $href;
}

my %hash;
$hash{delete $_->{id_1}}{delete $_->{id_2}} = $_ for @aoh;