my @array = (0)x10;
my $first = 2;
my $last = 5;

# Array Slice; beachte das @ am Anfang!
@array[$first..$last] = (1) x ( $last - $first +1 );

print "@array";