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