use strict;
use warnings;
use Time::HiRes qw/time/;


BEGIN {
    $\="\n";
    my $count=1000;
    sub noop { };
    
    my $start=time;
    sub tag_gen {
        my ($tag)=@_;
        sub {
            noop("Ipse Lorum");
            noop("Ipse Lorum");
            noop("Ipse Lorum");
            noop("Ipse Lorum");
            noop("Ipse Lorum");
            noop("Ipse Lorum");
            noop("Ipse Lorum");
            noop("Ipse Lorum");
            noop("Ipse Lorum");
            noop("Ipse Lorum");
            "<$tag>",@_,"</$tag>";
        }
    }
    {
        no strict 'refs';
        for my $x (1..$count) {
            
            my $tag="h$x";
            *{$tag}=tag_gen($tag);
        }
    }
    print "Closure: ",time-$start;

    
    $start = time;
    for my $x (1..$count) {
        my $tag="H$x";
        eval sprintf <<'__CODE__', $tag;
        sub %1$s {
            noop("Ipse Lorum");
            noop("Ipse Lorum");
            noop("Ipse Lorum");
            noop("Ipse Lorum");
            noop("Ipse Lorum");
            noop("Ipse Lorum");
            noop("Ipse Lorum");
            noop("Ipse Lorum");
            noop("Ipse Lorum");
            noop("Ipse Lorum");

            "<%1$s>",@_,"</%1$s>";
        }
__CODE__
    }
    print "Eval: ",time-$start;
}





print h1 h2 "closure";

print H1 H2 "eval";

##</code><code>##

Closure: 0.0279860496520996
Eval: 0.343567132949829
<h1><h2>closure</h2></h1>
<H1><H2>eval</H2></H1>