my %hash;
/^([^,]+)(?:,(.*))?$/s && ($hash{$1} = $2) for @array;