Select Code to Download

for my $name (sort keys %names) {
    # Skip if fewer than 4 occurrences of name or none over 50
...

    say "$name: ", join ",", @{$names{$name}};
}