what about a foreach?

my %Gene;
for my $index (@gene)
{
    $Gene{$gene[$index]} = $gene[$index+1] if $index%2;
}
[download]