Select Code to Download

use strict;
use warnings;
...
    my $aoh_ref = shift;
    print Dumper( $aoh_ref);
}

$VAR1 = [
          {
...
            'h2key1' => 'h2val1'
          }
        ];