Select Code to Download

my @opts= qw( This That TheOther Else Foo Bar Blatz );
my %opts;
@opts{@opts}= 1x@opts;
...
    }
    return @{$href}{@_};
}

sub _populate_hash
{
 my $hvHash= shift(@_);
...
 croak unless @$avValues == @$avNames;
 @{$hvHash}{@$avNames}= @$avValues;
}