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

##</code><code>##

if (grep $_ eq $j, $text->tagNames) { ... }

##</code><code>##

first { $_ eq $j } $text->tagNames

##</code><code>##

$text->does_tag_exist($tag_name)