print join "\n", sort up(\%nos) }  keys %nos;

##</code><code>##

foreach my $id (sort $by_sort_method keys %contents) {