my $sth=$dbh->prepare(
"SELECT Data,Identifier,User,Version FROM ddts, ".
"delivery WHERE `User`=\"@user\" AND `Identifier`= ?" .
" AND delivery.Data=ddts.Data");

foreach $id (@id){
  $sth->execute($id);
                    
  my $found = 0;
  while (my ($data,$identifier,$user,$version)=$sth->fetchrow_array ) 
  {
    print "<tr><td><input type=\"checkbox\" name=\"rt\" CHECKED ".
          "value=\"$identifier\"> $identifier</td></tr>";
    $found = 1;
  }
                    
  unless ($found){
    print "<tr><td><input type=\"checkbox\" name=\"rt\" ".
          "value=\"$id[$i]\"> $id[$i]</td></tr>";
  }
}

$sth->finish;