use warnings;
use strict;

my @array1 = (1, 2, 3, 1, 2, 3, 1, 2, 3 );
my @array2 = qw(blue white yellow blue white yellow blue white yellow);
my $i = 0;
while ($i < $#array1) {
    print "@array1[$i .. $i+2] ";
    print "@array2[$i .. $i+2]";
    print "\n";
    $i += 3;
}

__END__

1 2 3 blue white yellow
1 2 3 blue white yellow
1 2 3 blue white yellow