my $cols = scalar @genes;