Select Code to Download

sub hmap (&%)
{
...
    push @rv, $code->(@_=(shift @i,shift @i)) while @i;
    @rv;
}

sub hmap (&%) {
    my $code = shift;
...
    push @rv, $code->(shift @i,shift @i) while @i;
    @rv;
}