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