foreach my $key(sort keys @sorted_dist){