Select Code to Download

my %fields_to_show = map { $_ => 1 } qw/field1 field2 field3/;

foreach my $f (@{ $self->{Field_Order} }) {
    next unless exists $fields_to_show{$f};
...
        $self->escape_html($val) 
    );
}