foreach my $z (@array)
{
   my $abc;
   $kc = "neu";
   splice(@array, x, 1, y); 
}