my %info;
foreach my $line ( @lines ) {
    foreach my $pair ( split /\s*,\s*/, $line ) {
        my ( $key, $value ) = split /\s*=\s*/, $pair;
        $info{$key} = $value;
    }
}