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