grep($genes[$index] eq $_, @gl)