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

##</code><code>##

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