Help for this page

Select Code to Download

Select or download this

for my $gene_name (keys %AA) {
    for (keys %{$site{$gene_name}}) {
        $site_length_catch{$gene_name}{$_} = @{$site{$gene_name}{$_}};
    }
}

Select or download this

my $mutation_count = $site_length_catch{$gene_name}{$mutation_site};