Help for this page
my $text; for $text(@array){ $hash->{$text}++}
my $text; foreach $text(@array){ $hash->{$text}++}
my @foo = qw(bar baz ne); foreach (my $ix=0;$ix < @foo; $ix++){print $foo[$ix]}