Select Code to Download

sub hmap (&\%) {
    my( $code, $href ) = @_;
...
        $code->( @_ = each %$href )
    } 1 .. keys %$href;
}

>perl -wMstrict -MData::Dump -le
"sub hmap (&\%) {
...
  dogma => 178,
  dogstar => 184,
}