while (my $in = <IN>) {
  for my $i (0..$#ref) {
     if ($ref[$i] =~ m/$in/) {
        print OUT $ref[$i+1];
     }
  }
}