Re^2: array to hash key value pairs

[jms53]

what about a foreach?

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