Select Code to Download

use warnings;
use strict;
...
    my $statement = join ', ', @{ $hash{$group} };
    print "$statement\n";
}

one, two, three, four, five
banana, pear, apple