my $dbh = DBI->connect("DBI:Sybase:CRAP", "sa", ""); #connects to
$sth4 = $dbh->prepare(qq{
                        SELECT NSS.dbo.SITE.SITE_#, SITE_NAME
                        FROM NSS.dbo.SITE, NSS.dbo.SITE_CONTACT, NSS.dbo.CONTACT
                        WHERE NSS.dbo.SITE.SITE_# = NSS.dbo.SITE_CONTACT.SITE_#
                        AND NSS.dbo.CONTACT.CONTACT_# = NSS.dbo.SITE_CONTACT.CONTACT_#
                        AND NSS.dbo.CONTACT.CONTACT_#  = $in{$modContactNumber}
                   }) or die "Can't prepare SQL statement: $DBI::errstr\n";
$sth4->execute
                or die "Can't execute: $DBI::errstr\n";
      my ($newSiteNumber, $newSiteName);
$sth4->bind_columns (undef, \$newSiteNumber, \$newSiteName);


@array=split( " ", $sites);
$count = 0;

while ( @row4 = $sth4->fetchrow() )
{
if (($newSiteNumber) eq ($array[$count]))
{
print "modify";
}
else
{
print "delete";
}
$count = ++$count;
}