foreach my $molecule (@molecules) {

    
    my @found = grep /\Q$molecule\E/i, @locus_small;
    
if (@found) {
        print OUTDATA  ($molecule, ": \n\t", join "\t", @found);
    }
}