Select Code to Download

use strict;
use warnings;
...
$, = v9;
$\ = $/;
print $_, join ',', sort keys %{$good{$_}} for sort keys %good