#!/usr/bin/perl
use 5.016;
use strict;
use warnings;
#1018535 

=head  NO ARRAY METHOD  (everything between here and the =cut line is commented out)

my $count;

while ( <DATA> ) {
    for ( $_ =~ /\w+/g ) {
        $count++;
    }
}

print "COUNT:  $count\n";

=cut     END of (POD-syntax code which is tantamount to a)  multi-line comment

# you could stuff the individual (not necessarily unique) words into an array, this way:
# ie, this uses an ARRAY. Run the code to see what's happened here.

my $i = 0;
my ( $count, @count);

while ( <DATA> ) {
    for ( $_ =~ /(\w+)/g ) {
        push @count, "$_ $i";
        $i ++;
    }
}

for $count(@count) {
    say "Array element is: $count";
}

__DATA__
This these that the and how who writ this code
how now brown cow
the fox jumped into the hencoop
the lazy brown dog was azleep.