Select Code to Download

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

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

my @stuff;
while (<FILEHANDLE>) {
...
  my %record = @keysandvalues;
  push @stuff, \%record;
}

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