my %hash = map {$_ => 1} map {chomp; split /\t/} `cat orderednames`;
print map {"$_\n"} grep {!$hash {$_}} map {chomp; $_} `cat signal`;