Select Code to Download

  my @search_space;
  my $N = 100;
...
      $arr_ref->[$_] eq $find and return $_ for (0 .. $#{$arr_ref});
      return -1;
  }

  my $N = 100;
  my @file_b;
...
          print "No match for $line\n";
      }
  }