Select Code to Download

use strict;
use warnings;
...
    $rank ++;
    say qq{$rank - $_} for sort @{ $byValue{ $descVal } };
}

1 - car
2 - motorcycle
2 - skate
3 - bird

use strict;
use warnings;
...

    $place += $count;
}

Rank Place   Item
  1    1=    concorde
...
  8   12=    pedestrian
  8   12=    sheep
  9   14     tortoise