johngg@shiraz:~/perl/Monks > perl -MData::Dumper -Mstrict -Mwarnings -E '
my @AoH1 = (
   { fruit => q{apple}, veg => q{pumpkin} },
   { fruit => q{pear}, veg => q{swede} },
   { fruit => q{cherry}, veg => q{pea} }
   );
my @AoH2 = (
   { fruit => q{mango}, veg => q{cabbage} },
   { fruit => q{plum}, veg => q{leek} },
   );
my @megaAoH = ();
push @megaAoH, @AoH1 if 1;
push @megaAoH, @AoH2 if 1;
print Data::Dumper->Dumpxs( [ \ @megaAoH ], [ qw{ *megaAoH } ] );'
@megaAoH = (
             {
               'fruit' => 'apple',
               'veg' => 'pumpkin'
             },
             {
               'veg' => 'swede',
               'fruit' => 'pear'
             },
             {
               'fruit' => 'cherry',
               'veg' => 'pea'
             },
             {
               'veg' => 'cabbage',
               'fruit' => 'mango'
             },
             {
               'fruit' => 'plum',
               'veg' => 'leek'
             }
           );
johngg@shiraz:~/perl/Monks >