print "$key_sel\n";
    my $cmd = "select * from info";
    $sth = $dbh->prepare($cmd);
    $sth->execute;

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