Select Code to Download

$foo->baz('abe'=>&linc,
map {"$_" => sub {return '<H1>'.$_.'</H1>'}; } '1'..'5'

            map { $a = $b = $_;
                  $a => sub {'<H1>'.${b}.'</H1>'} } 1..5,