Select Code to Download

    my @a = qw(one two three four);
    my @b = qw(two four);
...
    for (@a) {
      unless ($b{$_}) { print "$_ is not in \@b\n" }
    }