# Iterate through all of the genes on a clone
foreach my $gene ( @{ $first_clone->get_all_Genes() } ) {
    my $temp_obj_handle = $gene;
    print $temp_obj_handle->stable_id(), "\n";
}