@hitwords

##</code><code>##

while($word = <WORDS>){

##</code><code>##

while (<WORDS>) {

##</code><code>##

use Benchmark qw/cmpthese/;

cmpthese 1,{
read_proc => <<'EOFCODE',
    open(my $words,"words.txt") or die("Wordlist unavaliable.\n");
    my $hitcounter=0;
    my @hitwords;
    my $counter=0;
    my @words = <$words>;
    close($words);
    foreach my $word (@words){
        chomp $word;
        if ($word =~ m/[aeiouyAEIOUY]{4,}/){
          push(@hitwords,$word);
          $hitcounter++; 
        }
        $counter++;
    }
EOFCODE

for_proc => <<'EOFCODE',
    open(my $words,"words.txt") or die("Wordlist unavaliable.\n");
    my $hitcounter=0;
    my @hitwords;
    my $counter=0;
    foreach my $word (<$words>){
        chomp $word;
        if ($word =~ m/[aeiouyAEIOUY]{4,}/){
           push(@hitwords,$word);
           $hitcounter++; 
        }
        $counter++;
    }
    close($words);
EOFCODE
while_proc => <<'EOFCODE',
    open(my $words,"words.txt") or die("Wordlist unavaliable.\n");
    my $hitcounter=0;
    my @hitwords;
    my $counter=0;
    while(<$words>){
        chomp;
        if (m/[aeiouyAEIOUY]{4,}/){
           push(@hitwords,$_);
           $hitcounter++; 
        }
        $counter++;
    }
    close($words);
EOFCODE
};