Select Code to Download

my $found = 0;
for (@A) { if ($_ eq $key) { $found = 1; last } }
if ($found) {
...