@gene_score = (
[ "gene_name_0", "score_0" ],
[ "gene_name_1", "score_1" ],
...
[ "gene_name_400", "score_400" ]
);
####
@gene_start_stop_chr = (
[ "gene_name_0", "start_0", "stop_0", "chr_0" ],
[ "gene_name_1", "start_1", "stop_1", "chr_1" ],
...
[ "gene_name_30000", "start_30000", "stop_30000", "chr_30000" ]
);
##
##
@results = (
[ "gene_name_0", "score_0", "start_0", "stop_0", "chr_0" ],
[ "gene_name_1", "score_1", "start_1", "stop_1", "chr_1" ],
...
[ "gene_name_400", "score_400", "start_400", "stop_400", "chr_400" ],
);
##
##
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";
}
}
}