map { $_ => eval "sub { '<H1>$_</H1>' }" } 1..5

##</code><code>##

Lbh ebgngrq guvf grkg naq abj lbh pna ernq vg. Fb jung? :)   -- Whreq