@array1 = ( 1, 2, 3, 1, 2, 3, 1, 2, 3 );;
@array2 = qw[blue white yellow blue white yellow blue white yellow];;

print join "\t", @array1[ $_ .. $_+2 ], @array2[ $_ .. $_+2 ] for map 
+$_*3, 0 .. ( $#array1 / 3 );;
1       2       3       blue    white   yellow
1       2       3       blue    white   yellow
1       2       3       blue    white   yellow
[download]