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

$friends{$n}=$sucker;
}