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