Select Code to Download

  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]}