$addpdata->execute($planet,$tick,$scan->{id}
,'roid',$1, $2) or die $dbh->errstr;
$addpdata->execute($planet,$tick,$scan->{id}
$addpdata->execute($planet,$tick,$scan->{id}
,'roid',$1, $2) or die $dbh->errstr;
$addpdata->execute($planet,$tick,$scan->{id}