foreach $loc (reverse sort { int(${$a}{online}) <=> int(${$b}{online}) } @locations)