Select Code to Download

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});}