Select Code to Download

for (my $i = 0; $i < scalar(@array); $i++) {
    my $subhash = $hash{$array[$i]};  # does not autovivify new $hash 
+element
...
        }
    }
}

    next unless ( ref( $subhash ) eq 'HASH' );
    ...

        next unless ( ref( $subarray ) eq 'ARRAY' );
        ...