my $z = splice (@ary,2,0,$x);