Select Code to Download

my @cleanwords = qw (hut hat);
my @allwords = qw (hit het hat);
foreach my $var (@cleanwords)
...
        print $var," not found\n";
        }
}

use File::Slurp::Tiny 'read_file';
my @allwords = read_file ($ref);

foreach (@allwords){
print "allwords: ",$_,"\n";
}