{
    my %filehandle_for;

    sub _get_results_fh { my ($chr) = @_; ... }

    sub _gen_results_fh { my ($chr) = @_; ... }
}