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