Select Code to Download

$ cat pm_11140267_input.txt
702005010683593,5016683593,7020000024140
...
702005010679719,5016679719,7020000034222
702005010527052,5016527052,7020000034222
702005010645458,5016645458,7020000034222

#!/usr/bin/env perl

...
    next if @{$data{$_}} < $min_to_keep;
    print "$_: ", join(', ', @{$data{$_}}), "\n";
}

Interim results:
{
...
7020000034013: 5016608274, 5016608274, 5016609604, 5016510869
7020000034130: 5016551513, 5016551513
7020000034222: 5016679719, 5016527052, 5016645458