Browsing through the nearly-new uploads to CPAN I found across Array::Each - iterate over one or more arrays, returning one or more.
That's more a FYI, I think using it in this context would just overcomplicate it, I feel it has it's use when things get much more intricate.

Cheers, Sören