A basic challenge of iterators

sub mymap(@list, &block) {
    my $i = 0;
    my @result;
    while $i < @list.elems {
        push @result, &block(@list[$i]);
        $i = $i + 1;
    }
    @result;
}