open my $wfh, '<', $wordfile or die "Can't open `$wordfile': $!\n";
open my $tfh, '<', $textfile or die "Can't open `$textfile': $!\n";
open my $ofh, '>', $outfile or die "Can't open `$outfile': $!\n";