my @a=(15,24,23,110,30,58,3,22,79,6);
my ($x, $cnt) = 0;
my $wantedSentence= 250;

map {$x += $_; ++$cnt unless($x >= $wantedSentence)}@a;
print "This sentence in chapter " . ++$cnt;