use List::MoreUtils qw( each_array );

my $iterator = each_array( @a, @b, @c );
while ( my @col = $iterator->() ) {
    print "@col\n";
}