use List::Util qw(max);
my $max = max map { scalar @$_ } \(@a1, @a2, @a3, @a4);