(defun mapcar* (function &rest args)
  "Apply FUNCTION to successive cars of all ARGS.
Return the list of results."
  ;; If no list is exhausted,
  (if (not (memq 'nil args))
      ;; apply function to CARs.
      (cons (apply function (mapcar 'car args))
            (apply 'mapcar* function
                   ;; Recurse for rest of elements.
                   (mapcar 'cdr args)))))

(mapcar* 'cons '(a b c) '(1 2 3 4))
     => ((a . 1) (b . 2) (c . 3))

##</code><code>##

sub mapeach (&\%)
{
    my $sub = shift;
    my $hash = shift or do {
        require Carp;
        Carp::croak( "mapeach: Nothing to map" );
    };

    my @ret;
    while ( my ($k, $v) = each %{$hash}) {
	local ($_) = $k;
	push @ret, $sub->($k, $v);
    }

    return wantarray ? @ret : { @ret };
}