my %tag_for = map { $_ => 1 } $text->tagNames;
... later ...
if (exists $tag_for{$j}) { ... }