foreach $loc (@locations){
print "${$loc}{online} ${$loc}{users} $loc\n";
}