Select Code to Download

# As suggested by toolic above
use strict;
...
# $u_wc isn't a variable. We do have %u_wc though.

print "These are the unique words: ", join(" ", keys %u_wc), "\n\n";

G:\abyss>perl x.pl
Please enter the file name you want the word count
...


G:\abyss>