interesting problem

how many times fred appears in the 'people' array?
my @people = qw{ fred barney fred wilma dino barney fred pebbles };