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

my @keys = keys %data;
my @sorted[ sort { $data{$keys[$b]} <=> $data{$keys[$a]} } 0..$#keys ] = 1..@keys;
my $rank = 1;
my @ranks = ();
foreach $count (0..$#sorted) 
{
    $rank = $count + 1 if ($count > 0 && $sorted[$count] != $sorted[$count - 1]);
    push @ranks, $rank;
}

print join ",", @ranks;