sub html_out {
    my ( $total_muts, $mutant_genes_ref ) = @_;

    my %mutant_genes = %{$mutant_genes_ref};
    # ...etc...
}