Select Code to Download

use strict ;
use warnings ;
...
    push @result, { $id => \%subres } ;
}
print Dumper(\@result) ;

$VAR1 = [
          {
...
                   }
          },
        ];