#! perl -slw
use strict;

sub loops {
	my @iters = map{
		my @list = ( @$_, undef );
		sub { $list[ @list ] = shift @list || () };
	} @_;
	my @rv = map{ $iters[ $_ ]() } 0 .. $#iters;
	return sub {
		my $rv = [ @rv ];
		for my $i ( reverse 0 .. $#iters ) {
			$rv[ $i ] = $iters[ $i ]() and return $rv;
			$rv[ $i ] = $iters[ $i ]();
		}
		return;
	};
}

my $iter = loops [ 'a' .. 'd' ], [ 1 .. 4 ], [ 'me', 'you' ];

print "@$_" while $_ = $iter->();
__END__
[13:51:21.14] P:\test>loops
a 1 me
a 1 you
a 2 me
a 2 you
a 3 me
a 3 you
b 1 me
b 1 you
b 2 me
b 2 you
b 3 me
b 3 you
c 1 me
c 1 you
c 2 me
c 2 you
c 3 me