#!/usr/bin/env perl

use strict;
use warnings;
use List::MoreUtils qw (natatime);
use feature qw (say);
use Data::Dump;

my @x = qw( a b c );
my @y = qw( a b );
my @z = qw( a b c d );

dd \@x, \@y, \@z;

my $iterator = natatime 1, ( @x, @y, @z );

while ( my $value = $iterator->() ) {
    say $value;
}

__END__

karls-mac-mini:monks karl$ ./1118875.pl 
(["a", "b", "c"], ["a", "b"], ["a" .. "d"])
a
b
c
a
b
a
b
c
d