my @friends;

for (@raw_list) {
  my @friend = split /,/;

  push @friends, {
   FIRSTNAME => $friend[0],
   LASTNAME  => $friend[1],
   HAIRCOLOR => $friend[2]
  };
}

my @results = grep {
  lc $_->{HAIRCOLOR} eq 'brown' 
    and 'j' eq substr(lc $_->{FIRSTNAME}, 0, 1)
} @friends;