for my $GeneID (keys %hash) {
    print "$GeneID => $hash{$GeneID}->[0]\n";
}