$ret[$first_pos..$last_pos] = ( ( ("1") x ($last_pos - $first_pos + 1) ) );