Select Code to Download

if( grep{$test eq $_} @array ){
# 
}

foreach (@array) {
  next unless $_ eq $test;
...
  # ...
   last;
}

my %test
@test{@array} = ();
...
   }
}