my %covered_lookup;
@covered_lookup{ @covered_genes } = ();
for my $item ( @all_genes ) {
  say $item unless exists $covered_lookup{$item};
}