while( @array ) {
  push @newarray, splice @array,0,$nset;
  next if @newarray % ($nset * $every);      # no need for a counter with % op
  push @newarray, $newelement;               # add the new element
}