use warnings;
use strict;
use Array::Each;

my @nums  = 1   .. 5;
my @letts = 'a' .. 'g';

my $obj = Array::Each->new(set=>[\@nums, \@letts], bound=>0, undef=>' ');
while (my ($n, $l) = $obj->each) {
    print "$n, $l\n";
}

__END__

1, a
2, b
3, c
4, d
5, e
 , f
 , g