Select Code to Download

   join( ', ' => map { $_, @{ $hash{$key}{$_} } } keys $hash{$key} ), 
+$/;

   join( ', ' => map { $_, @{ $hash{$key}{$_} } } keys %{ $hash{$key} 
+} ), $/;