for (my $i = $first_pos; $i <= $last_pos; ++$i) {
	$ret[$i] = 1;
}