for my $name (sort keys %names) {
    # Skip if fewer than 4 occurrences of name or none over 50
    next if @{$names{$name}} < 4 || !any {$_ > 50} @{$names{$name}};

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