@a=('a', 'b', 'a', 'a');
  print "a occurs " . scalar grep(/a/,@a) . " times\n";