for my $exon ( $gene->sub_SeqFeature ) {
}