#!/usr/bin/perl -w 

open(IF,"l62");
while($a=<IF>){
chomp($a);
$hash1{$a}++;
}
close(IF);

open(IF,"SMIT_accessory_files/snyder_all.txt");
while($a=<IF>){
#chrI	147530	151186	-	YAL001C
chomp($a);
@b = split(/\t/,$a);
$c= $b[4];
$hash2{$c}++;
if($hash1{$c}){print "$c in both\n";}
}
close(IF);

foreach $key (keys %hash1){
if($hash2{$key}){
}
else{ print "$key in ours not snyder\n";}
}