Select Code to Download

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

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