while(my $kk = <FILE>)
{
  chomp($kk);
  print "$kk\n";
  $sth ->execute($kk) or die "Couldn't execute statement: " . $sth->errstr;
  my ($dup) = $sth->fetchrow_array();
  print "$dup";
  if($dup eq $kk) {
    print"persent";
  }
}