#!/usr/bin/perl
# sort_em.plx
use warnings;
use strict;

my %numbers = qw(one 1 two 2 three 3 four 4 five 5 six 6 seven 7 eight 8);

sort_em(\%numbers);

sub sort_em {
	our %nos =  %{$_[0]};
	print "UP:\n";
	print join "\n", sort up   keys %nos; 

	print "\n\nDOWN:\n";
	print join "\n", sort down keys %nos; 

	sub up   { $nos{$a} <=> $nos{$b} }
	sub down { $nos{$b} <=> $nos{$a} }
}