Select Code to Download

my %hash;
for (@array) {
...
        $hash{$1} = $2;
    }
}

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