#!/usr/bin/perl

# http://perlmonks.org/?node_id=1207623

use strict;
use warnings;

my %data = 
(
      'car'        => 180,
      'motorcycle' => 150,
      'skate'      => 150,
      'bird'       => 120,
);

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

##</code><code>##

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