#! /perl/bin/perl 

use Data::Dumper;

use strict;

my @letters = ("red","red","red","blue","white","yellow","blue","navy","navy","green","white","cars");

my %count = ();

$count{$_}++ for @letters;

print Dumper( \%count );