The following code is not giving me any errors,but it does not produce anything in the ouyput file.Whats wrong here?
# open prompt file
open my $fh, "< $words" || die ("Unable to open prompt file $prompt");
open my $wfh, "> $out" || die ("Can't create output file!");
# Read every word into an array
my %temp = (); @word
= sort @word
print $wfh "$word";