foreach my $tag ( _all_html_tags() ) {
    *$tag = sub { return _tag_func($tag,@_); }
...