H:\perl>perl
my %one = (
        4 => 1,
        3 => 2,
        2 => 3,
        14 => 4,
        13 => 5,
);

my @result = reverse sort { $one{$b} <=> $one{$a} or $b <=> $a } keys %one;
print join $/ => @result;
^Z
4
3
2
14
13