my %hash = map {$_ => sub {return "<H1>$_</H1>"} } (1..5); 
$_ = 'foo';
print &{$hash{2}}; 

##</code><code>##

my %hash = map {$_ => "<H1>$_</H1>" } (1..5);