foreach (0..$#array) {
   if ($array[$_] eq "c") {
      splice(@array, $_+1, 0, "x");
      last;      
   }
}