sub strict;

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

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

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