my $sorter=sub { $_[0] <=> $_[1] };

##</code><code>##

my @sorted=sort { $sorter->($a,$b) } @unsorted;

##</code><code>##

my $sorter=sub { $_[0]->{$_[1]} <=> $_[0]->{$_[2]} };

##</code><code>##

my @sorted=sort { $sorter->($hashref,$a,$b) } @unsorted;