Select Code to Download

my %opts;
@opts{@switches} = ([]) x @switches;

my %opts;
@opts{@switches} = ();

my $curswitch;
for (@values) {
    exists $opts{$_} ?
...
    defined $curswitch or die "Not a switch: $_\n";
    push @$curswitch, $_;
}