Select Code to Download

    my @fields = REQUIRED_FIELDS;
    for my $e (@$a) {
...
            }
        }
    }

    my %fields = map { $_ => 1 } REQUIRED_FIELDS;
    for my $e (@$a) {
        $href->{$e} = 0
            if $fields{$e};
    }