Select Code to Download

my @stuff = qw/a b c d/;
my %nums = ( a => 1,
...
if (exists $nums{$stuff[0]}) {
  print "$stuff[0] is in \%nums"; )
}