<nit>Er.. that piece of code

sub hmap (&%)
{
    my $code = shift;
    my @i = @_;
    local @_;
    my @rv;
    push @rv, $code->(@_=(shift @i,shift @i)) while @i;
    @rv;
}
[download]

wasn't from BrowserUk, but yours truly, well corrected by ikegami along the lines:

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

</nit>