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