Select Code to Download

$VAR1 = {
          'FOO' => {
...
                    'TABLE_TYPE' => 'CUSTOMER'
                   }
        };

$VAR1 = {
          'REFERENCE' => [
...
                         ],
          'CUSTOMER' => 'BAZ'
        };

my %HoA;
foreach my $key (keys %$ref_to_HoH){
...
          $HoA{$type}  = $key;
   }
}

Can't use string ("FOO") as an ARRAY ref while "strict refs" in use at
+ .....