sub strict;

my @a1 = qw|a b c d e f|;

splice @a1, 3, 0, 'x', 'y', 'z';

print join(',', @a1);
print "\n";

##</code><code>##

a,b,c,x,y,z,d,e,f