my $ctr = 0;
for ( 0 .. 5 ) {
   if ($foo[$_] eq $bar) {
      $ctr++;
   }
}

##</code><code>##

my $variable;

##</code><code>##

my $variable = "";

##</code><code>##

my $variable = 0;