My favorite module for this kind of thing is List::Comprehensions:

#! perl -slw
use strict;
use List::Comprehensions;

my @a1 = qw(0 1 2 3 4);
my @a2 = qw(0 1 2 3 4 5 6 7 8);
my @a3 = qw(0 1);
my @a4 = qw(0 1 2 3 4 5);

comp1{
    print "@_";
} \@a1, \@a2, \@a3, \@a4;
[download]