#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11105802
use warnings;

my %hash = ( Alec => 14, Alice => 12, Bob => 10, Donny => 13,
  Jacob => 13, Mike => 11, Sarah => 13, First => 17 );

my $rank = 0;
$_ = join '', sort {$b =~ s/\D+//gr <=> $a =~ s/\D+//gr }
  map " $_ - $hash{$_}\n", sort keys %hash;
1 while s/(.*) - (\d+)\n(.* \2\n)/$1,$3/;
s/^(?=(.+))/$1 =~ tr~,~~ < 1 ? ++$rank . '.' :
  ++$rank . '-' . ($rank += $1 =~ tr~,~~) . '.' /gem;

print;

##</code><code>##

1. First - 17
2. Alec - 14
3-5. Donny, Jacob, Sarah - 13
6. Alice - 12
7. Mike - 11
8. Bob - 10