Select Code to Download

use Data::Dumper;

...

print Dumper(\%hash), "\n";

$VAR1 = {
          'a' => {
...
                 }
        };

for ( @ary_of_hrefs ) {
    $hash{ delete $_->{id_1} }{ delete $_->{id_2} } = $_;
}