knoppix@Microknoppix:~$ perl -E '
> %hash = ( a => 1, b => 2, c => 3 );
> say qq{@{ [ values %hash ] }};
> say qq{@{ [ sort { $b <=> $a } values %hash ] }};
> say qq{@{ [ map $hash{ $_ }, sort keys %hash ] }};'
3 1 2
3 2 1
1 2 3
knoppix@Microknoppix:~$