Select Code to Download

use strict; use warnings; use feature 'say';

...
);

say "$_: " . join ',', @{ $hash{ $_ } } for keys %hash;

$ perl 1185995.pl
fruit: banana,pear,apple
numbers: one,two,three,four,five