Like this?

sub multimap (&$@) {
  my $fn = shift;
  my $n = shift;
  my @res;
  while (@_) {
    push @res, $fn->(splice (@_, 0, $n));
  }
  @res;
}

print multimap { "$_[0]=$_[1]\n" } 2, %ENV;
[download]

I tried to reverse the order of the first two arguments, but then the prototypes misbehaved. Reminded me of why I usually don't try to use them.