@array1 = [1, 2, 3, 1, 2, 3, 1, 2, 3 ]
@array2 = [blue, white, yellow, blue, white, yellow, blue, white, yellow]
####
1 2 3 blue white yellow
1 2 3 blue white yellow
1 2 3 blue white yellow
####
while (@array1){
push (@array_wb, $_[0]);
push (@array_wb, $_[1] );
push (@array_wb, $_[2] . "\n");
push (@array_wb, $_[3]);
push (@array_wb, $_[4] );
push (@array_wb, $_[5] . "\n");
push (@array_wb, $_[6]);
push (@array_wb, $_[7] );
push (@array_wb, $_[8] . "\n");
print (@array_wb);
}
####
1 2 3
1 2 3
1 2 3
blue white yellow
blue white yellow
blue white yellow