Well thats another kettle of fish. you want to sort by contents and leep labels in synced order. This will sort labels by the contents of $hash numerically <=>.

my @labels=sort {$hash{$a}<=>$hash{$b}} keys %hash; 
my @content = @hash{@labels};
[download]