Just sort it right the first time.. don't reverse it after.

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

UPDATE: I wanna be like ChemBoy when I grow up. :)

UPDATE2:Kage, please do yourself a favor. Restructure your data structures into one nice neat hash.

%pages = (
  'page1' => 2,
  'page2' => 24,
  'page3' => 8,
);

foreach my $loc (sort {$pages{$b} <=> $pages{$a}} keys %pages) {
  my $s = "s" unless $pages{$loc} == 1;
  print "$pages{$loc} user$s accessing $loc\n";
  ...
}
[download]

Update 129: See the entire recoded solution below