Select Code to Download

#!/usr/bin/perl
use strict;
...
my %tmp = ( a=>1, b=>2, c=>3 );
my @vals = @tmp{reverse sort keys %tmp};
print "@vals\n";

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

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