## For each homology foreach my $this_homology (@$all_homologies) { next unless $this_homology->subtype eq 'Mammalia';