<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>