Select Code to Download

# ok, yeah, this is perl5ey
sub in_array {
   my $foo = shift;
   return grep $_ eq $foo, @global_array;
}