Hi.

Here is yet another way to accomplish the same task:

#!/usr/bin/perl -w
use strict;

my %hash;
my @info = qw( Katie Bob Aimee Carol John Carol );

foreach ( @info )
{
   $hash{$_}++;
}

print "\n";

foreach ( keys %hash )
{
   print "$_ -> ",  $hash{$_}, "\n";
}
[download]

Update: I 'fixed' the code in order provide an alternative solution.

-DigitalKitty