Select Code to Download

#!/usr/bin/perl

...
  ++$rank . '-' . ($rank += $1 =~ tr~,~~) . '.' /gem;

print;

1. First - 17
2. Alec - 14
...
6. Alice - 12
7. Mike - 11
8. Bob - 10