Select Code to Download

use strict;
use warnings;
...
    # printf "%3s. (%2d) %s\n",
    #     $rank_str, $score, join (", ",@names); 
}

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

  1. (17) First
  2. (14) Alec
...
  6. (12) Alice
  7. (11) Mike
  8. ( 8) Bob