Select Code to Download

use strict;
use warnings;
...
  my @grepped= grep {/\Q$second\E/} @array;
  print "$first\t$grepped[0]\n";
}

$ join -1 2 -2 1 file1.txt file2.txt