for (@raw_list) {
my @entry = split(/,/, $_);
$sucker= {
      FIRSTNAME          => $entry[0],
      LASTNAME           => $entry[1],
      HAIRCOLOR          => $entry[3],
      };

$friends{$n}=$sucker;
}

##</code><code>##

foreach $n (sort keys %friends) {
$sucker=$friends{$n};
if ($sucker->{FIRSTNAME}=~/^j.*/) {$d++;}
ect...