Re: map2 {} grep2 {} ...

[BrowserUk]

Define them yourself:

sub map2(&@){ 
    my $code = shift; 
    map $code->( shift, shift ), 0 .. $#_/2 
}

sub grep2(&@){ 
    my $code = shift; 
    map{ 
        my @pair = (shift,shift); 
        $code->( @pair ) ? @pair : ()
    } 0 .. $#_/2 
}

[jozef]

Works like a charm! Thank you very much.

[sundialsvc4]

An excellent suggestion.   Fav’d.   The best way to solve a problem is not just “a solution that works,” but, as here, “a solution that is abundantly clear.”   Something that gives you, not only the ability to do something, but a way to point out to your successor what you are doing and why you are doing it ... to capture the original designer’s intent.