while (($GeneID, $BMB) = each %hash) {
    print "$GeneID => $BMB[0]\n";}

##</code><code>##

 
9190899 => 15576
9190898 => 15576
9191049 => 15576
9190897 => 15576
9191048 => 15576