for (my $i=0; $i<=$#id; $i++){
my $sth=$dbh->prepare("SELECT Data,Identifier,User,Version FROM ddts,delivery WHERE `User`=\"@user\" AND `Identifier`=\"$id[$i]\" AND delivery.Data=ddts.Data");
				$sth->execute();
					
					while (my ($data,$identifier,$user,$version)=$sth->fetchrow_array ) {
         				print "<tr><td><input type=\"checkbox\" name=\"rt\" CHECKED value=\"$identifier\"> $identifier</td></tr>";}
					
					if ($id[$i] ne $identifier){
					print "<tr><td><input type=\"checkbox\" name=\"rt\" value=\"$id[$i]\"> $id[$i]</td></tr>";

					}
																			
$sth->finish;
}