Select Code to Download

   my $a = [ 
      { 
...
        }
       },
   ];

   my $b = $a->[1]{BAR};
   undef $a;

   use Data::Dumper;
   print Dumper ($a,$b);
...
                     'BAR3' => 'yyyy'
                    }
           };