Select Code to Download

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

}

sub sorter
{
...
    }

}