Select Code to Download

@sorted_keys = sort { $HoH{$b}{'number'} <=> $HoH{$a}->{'number'} } ke
+ys %HoH;

open(FILE,$log);
flock (FILE,3);
@users=<FILE>;
...
foreach $loc (@locations){
print "${$loc}{online} ${$loc}{users} $loc\n";
}

use strict;
use warnings;
...
  my $href = $locations{$loc};
  print $href->{'online'}." ".$href->{'usertext'}."$loc\n";
}