Instead of the for loop you have just below the data, try the following:

@sorted = sort { $hash{$b}{sorter_total} <=> $hash{$a}{sorter_total} }
            keys %hash;
[download]

This sorts the key valus of %hash based on a comparison of the value of $hash{$key}{sorter_total}, which sounds like what you desire.

HTH.