<div>foreach my $slice (@$slices) {<br>  # fetch genes from rnaseq<br>  my $genes = $slice->get_all_Genes($logic_name);<br>  foreach my $gene (@$genes) {</div><div>foreach my $dbes ($gene->get_all_DBLinks("EntrezGene")){<br>
            foreach my $dbe (@{$dbes}){<br>                print $dbe->primary_id(), "\t";<br>            }<br>        }<br><br><br></div>