#! perl
$i=0;


open(test,"<test.txt");
while(<test>)
{
($key,$value)=split(/,/);

print "$key $value";

}
close(test);

#! perl
use strict;
use warnings;

my $file='test.txt';

open(test,"<", $file) or die "konnte $file nicht oeffnen ($!)";
while(my $line=<test>)
{
 chomp($line);
 my @pairs=split(/,/,$line);
 for my $pair (@pairs)
 {
  my ($key,$value)=split(/=/,$pair)
  print "$key $value\n";
 }
}
close(test);

#! perl
$i=0;


open(test,"<test.txt");
while(<test>)
{
($key[$i],$value[$i])=split(/,/);

print "$key[$i] $value[$i]";
$i++;
}
close(test);

my $line = 'key11=val11,key12=val12,key13=val13,key14=val14';
my (@keys,@values);
my $i = 0;

for my $pair ( split /,/, $line ){
    ($keys[$i],$values[$i]) = split /=/, $pair;
    $i++;
}

use strict;
use warnings;

use Data::Dumper;

my %stuff;

foreach (do {
  open my $test, '<', 'test.txt' or die "I/O Error: $!\n";
  local $/;
  split /[,\r\n]+/, <$test>;
}) {
  my ($key, $value) = split /=/;
  $stuff{$key} = $value;
}

print Dumper \%stuff;

use strict;
use warnings;

use Data::Dumper;

my %stuff= split(/,|=/,do {
  open my $test, '<', 'test.txt' or die "I/O Error: $!\n";
  local $/;
  $_=<$test>;
  $_=~s/[\r\n,]+/,/;
});

print Dumper \%stuff;