Select Code to Download

#!/usr/bin/perl
use strict;
...
#print $AoH[0]->{heading}->[3]->{item};

print Dumper @AoH;

$VAR1 = {
          'heading' => [
...
                       ],
          'title' => 'aaa'
        };

$VAR1 = {
          'heading' => [
...
                       ],
          'title' => 'aaa'
        };