#!/usr/bin/perl -w

$pwd = `pwd`;
chomp($pwd);

$file=$ARGV[0];
$file1=$ARGV[1];

open(IN,$file);
while ($line=<IN>){
chomp($line);

@ary = split(/\t/,$line);
chomp($ary[0]);chomp($ary[1]);

open(SK,$file1);
while($line1=<SK>)
{
    @any = split(/\t/,$line1);
    chomp($any[0]); chomp($any[0]);chomp($any[1]);chomp($any[2]);
if ($ary[0] eq $any[0] and $ary[1] == $any[1]) or ($ary[0] eq $any[0] and $ary[1] == $any[2]) 
{
    print "$line\tE\n";
    
}
else
{ print "$line\tM\n";
}

}
}