5-HT
5-HT1BR
serotonin
MAP-kinase
MAPK
MAP-kinase-kinase

##</code><code>##

5-HTt      serotonin
MAP-kinase MAPK    ERK

##</code><code>##

use strict;
use warnings;

my $tok;
my @tokens;
my %hash;

open INFILE, "<signal.txt" or die "can't open file";
while (<INFILE>) {
    chomp;
    $hash{$_} = undef;
}
close INFILE;

open DATA, "<orderednames.txt" or die "can't open sentences";
while (<DATA>) {
    @tokens = split(/\t+/, $_);
    foreach $tok (@tokens) 
{
	if (exists($hash{$tok})) {
	    print " match $tok \n" ;
	    last;
	} else {
	    print "$tok not match \n";
	}
    }
}
close DATA;
exit;