$_ = 1 for @array[$first .. $last];