Sort the keys by comparing the values: my @values = sort { $labels{$a} cmp $labels{$b} } keys %labels;