Select Code to Download

use strict;
use warnings;
...
12,10,name2
5,12,name4
8,5,name5

$ perl test_ranks.pl
name3,name1
...
name2,name1
name4,name2,name1
name5,name4,name2,name1

use strict;
use warnings;
...
12,10,name2
5,12,name4
8,5,name5