my $sth = $dbh->prepare('SELECT COUNT(*) FROM owner WHERE rent_car = "Y"'); 
     $sth->execute() or die $sth->errstr; 
     my $rent_car = $sth->fetchrow_array();
     my $percent = ($rent_car / $result)*100;
        printf qq(<tr><td>Yes</td><td>$rent_car</td><td align="right">%.2f%%</td></tr>\n),$percent;
     
     my $sth = $dbh->prepare('SELECT COUNT(*) FROM owner WHERE rent_car = "N"'); 
     $sth->execute() or die $sth->errstr; 
     my $rent_car2 = $sth->fetchrow_array();
     my $percent2 = ($rent_car2 / $result)*100;
        printf qq(<tr><td>No</td><td>$rent_car2</td><td align="right">%.2f%%</td></tr>\n),$percent2;
               
     my $rent_carno = $rent_car + $rent_car2;
     my $rent_carnor = $result - $rent_carno;
     my $percent3 = ($rent_carnor / $result)*100;
        printf qq(<tr><td>No Response</td><td>$rent_carnor</td><td align="right">%.2f%%</td></tr>\n),$percent3;