for my $item (@all_genes) {
   say  "$item" if ! grep {$item eq $_} @covered_genes;
}