Select Code to Download

 # now remove double counted patients from the data structure
foreach my $gene ( values %site_length_catch) {
        for my $count ( values %$gene ) {
                $count = keys %$count; # in scalar context you get the
+ number of keys