my $count = 0;
open($fh,"<",$sentence_file) or die "Could not open $sentence_file: $!";
while (my $sentence = <$fh>) {
    chomp $sentence;
    $count++;
    print "Sentence $count\n";
}
close($fh);