@array = map {    $array[$_], (  ($_+1) % 3 == 0  ?  "new element"  :  ()  )    } 0 .. $#array;