#!/usr/bin/perl
use strict;
use warnings;

my %tmp = ( a=>1, b=>2, c=>3 );
my @vals = @tmp{reverse sort keys %tmp};
print "@vals\n";

##</code><code>##

Roboticus@Roboticus-PC ~
$ perl t.pl
3 2 1

##</code><code>##

my @vals = @tmp{reverse sort keys %tmp};