Select Code to Download

foreach my $loc (sort {$b->{users} <=> $a->{users}} @locations) {
  ...
}

%pages = (
  'page1' => 2,
...
  ...
}