$query->execute;
while (my $ally = $query->fetchrow_hashref){
push @alliances,{Id => $ally->{id}, Name => $ally->{name}, Selected => $alliance == $ally->{id}};
$query->execute;
while (my $ally = $query->fetchrow_hashref){
push @alliances,{Id => $ally->{id}, Name => $ally->{name}, Selected => $alliance == $ally->{id}};