my $select_dbh = DBI->connect("DBI:mysql:$db_chip;host=$host",$user, $password) or die "Can't connect to MySQL database: $DBI::\ 
errstr\n"; 
my $select_sql = qq{ SELECT sampleid, chipid FROM new_pedpath where sampleid=?}; 
my $select_sth = $select_dbh->prepare($select_sql); 
 
my @vals=(); 
 
my($subid, $chp); 
 
foreach my $sid(sort keys %pft_list) 
{ 
 
    if($pft_list{$sid} eq "no"){ 
        eval { 
              $select_sth->bind_param( 1, $sid, SQL_VARCHAR); 
             $select_sth->execute(); 
 
           while(@vals=$select_sth->fetch()){ 
                print "@vals\n";<STDIN>; 
          } 
     } 
}