perl -wE'@l=qw(1 2 3 4 5 6 7); splice(@l,5,0,"x", "y");say "@l"'