Select Code to Download

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

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