my $sth=$dbh->prepare("SELECT * FROM ddts WHERE `Stat`=? AND `Project`=? AND `Version`=?");
$sth->execute("T","Def",join(@version));

##</code><code>##

y @compile=param ('compile');
my $dbh=DBI->connect($dsn,$user,$password,) 
             or die "Error $DBI:: error connecting to $dsn";
my $sth=$dbh->prepare("SELECT * FROM ddts WHERE `Stat`=? AND `Project`=? AND `Version`=?");
$sth->execute("T","Def",join(@version));

print "<table border=2>";

while (my ($identifier) = $sth->fetchrow_array ) {
    foreach $elem (@compile) {
        if ($elem eq $identifier){
            print "<b><center>1696</center></b>";
            print "<tr><td>$identifier</td></tr>";
        }
    }
}

print "</table>";
$sth->finish;