my $cmd = "select * from info where key=?";
   $sth = $dbh->prepare($cmd);
   $sth->execute($key_sel);

      my @row;
        while (@row = $sth->fetchrow_array ){
              print "@row\n";
              my $key =  $row[0];
            }