for my $h (@out) {
    &analyze($htree->append("$h$hist\n$k"),$rul) unless ($hist =~ /\|$h\|/);
}