my @stuff;
while (<FILEHANDLE>) {
  chomp;
  my %record = map {split /\s*=\s*/} split /,\s*/;
  push @stuff, \%record;
}