my $my_table = $dbh->prepare("select * from my_table where id = ?");
       $my_table->execute($nm);
       while(@data = $my_table->fetchrow_array){

            map{print "$_\n";}@data;
     
       }