Select Code to Download

#!/usr/bin/perl

...
my ($n, @rank) = 1;
$rank[ $data{$_} ] .= "$_\n" for sort keys %data;
defined and $n += print s/^/$n - /gmr for reverse @rank;

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