Help for this page
foreach my $loc (sort {$b->{users} <=> $a->{users}} @locations) { ... }
%pages = ( 'page1' => 2, ... ... }