return(keys %$pH ? $pH : $leaf) unless @$pA;