@sorted = sort {$$a{"least_signifigant_key"} <=> $$b{"least_signifigant_key"}} @unsorted;
[...]
@moresorted = sort{$$a{"most_signifigant_key"} <=> $$b{"most_signifigant_key"}} @sorted;