#!/usr/bin/perl
use strict ;
use warnings ;

my @foo = qw( a b c b d b e b f );

my $bar = grep { $_ eq 'b' } @foo;

print "$bar\n";