,$scan->{tick}, $fleet->{amount});
my ($id) = $addfleet->fetchrow_array;
$fleetscan->execute($id,$scan->{id}) or die $dbh->errstr;
,$scan->{tick}, $fleet->{amount});
my ($id) = $addfleet->fetchrow_array;
$fleetscan->execute($id,$scan->{id}) or die $dbh->errstr;