for (my $a = 0; $a < scalar @gene_score; $a++) {
        for (my $b = 0; $b < scalar @gssc; $b++) {
                if ("$gene_score[$a][0]" eq "$gssc[$b][0]") {
                print "$gene-score[$a][0]\t$gene_score[$a][1]\t$gssc[$b][1]\t$gssc[$b][2]\t$gssc[$b][3]\n";

                }
        }
}