Select Code to Download

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

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