my @sorted_dist = map{ $_->[0] }sort{ $b->[1] <=> $a->[1] }map{ [ $_, $noname_way{$_} ] }keys %noname_way;
	
foreach my $key(sort keys @sorted_dist){