Help for this page
my $dat0 = 'a.txt'; open (DAT, "$dat0") or die "Could not open file `$dat0'.\n"; ... } print "Done.\n";
if (exists $sentences->{$someInput}) { push (@referencedSentences1,$sentences->{$someInput});}