use strict;
use warnings;

my $wordlist = <<WORDS;
a
the
cat
mat
sat
WORDS

my $userinput  = "myexample";
my $wordfile   = '/home/psychohamster/Desktop/Desktop_Stuff/AnagramWordList';
my %hashlist;

open my $wordhandle, '<', \$wordlist or die "Unable to open WordList: $!";

while (my $deadstring = <$wordhandle>) {
    chomp $deadstring;

    next unless length $deadstring;
    $hashlist{$deadstring} = 1;
}

my $wordCount = keys %hashlist;

if ($wordCount) {
    print "Found $wordCount words:\n";
    print join "\n", sort keys %hashlist, '';
} else {
    print "Didn't find any words\n";
}

##</code><code>##

Found 5 words:

a
cat
mat
sat
the