my @planets;
while (my ($id,$coords,$ruler,$planet,$race,$size,$score,$value,$xp,$sizerank,$scorerank,$valuerank,$xprank
,$planet_status,$hit_us,$alliance,$relationship,$nick) = $query->fetchrow){
my @planets;
while (my ($id,$coords,$ruler,$planet,$race,$size,$score,$value,$xp,$sizerank,$scorerank,$valuerank,$xprank
,$planet_status,$hit_us,$alliance,$relationship,$nick) = $query->fetchrow){