#!usr/local/bin/perl

my $userinput = "myexample";
my $wordfile = '/home/psychohamster/Desktop/Desktop_Stuff/AnagramWordList';
my $wordcount = 0;
my $deadstring = "";

my %hashlist = ();

open my $wordhandle, $wordfile or die "Unable to open WordList: $!";

while (<$wordhandle>) {
$deadstring = chomp;
$hashlist{$deadstring} => 1;

$wordcount++;

}


$wordcount -= 1;

if (!%hashlist)
{ print "Empty\n"; }
else { print "Not Empty\n"; }