Help for this page
%reversed = reverse %hash; @sorted = sort {sorter($a, $b)} keys %reversed; ... $co->p; }
sub sorter { ... } }