SavannahLion:

It's just like this:

#!/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";
[download]

Which prints (on my system):

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

All the magic is in the single line:

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

Basically, you're just returning the list of values from a hash slice:

• reverse sort keys %tmp builds our sorted list of keys, and
• @tmp{ ... } tells perl to build the list of values for the selected keys.

...roboticus