Re^2: array to hash key value pairs

[jms53]

in reply to Re: array to hash key value pairs
in thread array to hash key value pairs

what about a foreach?

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