Select Code to Download

my @list = "A".."C";
my @tojoin = "W".."Z";
...
}
use Data::Dumper;
print Dumper \@list;

@hash{@list} = (1) x @list;
$hash{$_} = 1 for @list;