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

##</code><code>##

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