foreach my $tag ( _all_html_tags() ) {
    eval "sub $tag {
        return _tag_func(\$tag,\@_);
    }";
...
# again for end and start tags