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


##</code><code>##

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


##</code><code>##

my @stuff;
while (<FILEHANDLE>) {
  chomp;
  my @keysandvalues;
  my @field = split /,\s*/, $_;
  foreach $f (@field) {
     my ($key, $value) = split /\s*=\s*/, $_;
     push @keysandvalues, $key;
     push @keysandvalues, $value;
  }
  my %record = @keysandvalues;
  push @stuff, \%record;
}


##</code><code>##

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/