use 5.010;

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

say join ' ', map splice( $_, 0, 3 ), \@array1, \@array2 while @array1;