or download this
my %sorted = sort %unsorted # DOES NOT WORK!
say foreach (sort values %unsorted) # workaround (if you don't care ab
+out keys)
say $sorted{$_} foreach (sort keys { $unsorted{$a} <=> $unsorted{$b} }
+ %unsorted) # workaround (general)