my %covered;
@covered{@covered_genes} = ();
exists $covered{$_} || say for @all_genes;