my $text;
  for $text(@array){
     $hash->{$text}++}

##</code><code>##

  my $text;
  foreach $text(@array){
     $hash->{$text}++}

##</code><code>##

my @foo = qw(bar baz ne);
foreach (my $ix=0;$ix < @foo; $ix++){print $foo[$ix]}