my $padded = sum map $pad{$_}, grep $sentence>=$_, keys %pad;
my $chapter    = int( $padded / $longuest ) + 1;
my $in_chapter =      $padded % $longuest   + 1