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++;
}