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

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