Select Code to Download

my @list = qw/foo bar baz/;
foreach my $element (@list) {
...
    $state{$element} = 0;
  };
}

no strict 'refs';