#!/usr/local/bin/perl
$num=5;
my %hash = ('1' => 12, '2' => 34, '3' => 56, '4' => 2);
@values = reverse ((sort {$a <=> $b} values %hash)[0..--$num]);
print @values, "\n";
$num=5;
@values = (sort {$b <=> $a} values %hash)[0..--$num];
print @values, "\n";


----->
/home/jonathan> z   
5634122
5634122