I think this will work. You will find that using placeholders (the "?" in the $query statement) will make your DBI programming life much easier.

It may not look much shorter than yours, but it's infinitely more scalable.

-fuzzyping

my %rent_hash = (Y=>["Yes",undef], N=>["No",undef]);
my $query = "SELECT COUNT(*) FROM owner WHERE rent_car = ?";
my $sth = $dbh->prepare($query);
foreach (keys %rent_hash) {
        $sth->execute($_);
        my $rent_hash{$_}[1] = $sth->fetchrow_array();
        my $rent_carno += $rent_hash{$_}[1];
        my $percent = (($rent_car{$_}[1] / $result) * 100);
        printf qq(<tr><td>$rent_hash{$_}[0]</td><td>$rent_car{$_}[1]</
+td><td align="right">%.2f%%</td></tr>\n),$percent;
}

my $rent_carnor = $result - $rent_carno;
my $percent_total = (($rent_carnor / $result) * 100);
printf qq(<tr><td>No Response</td><td>$rent_carnor</td><td align="righ
+t">%.2f%%</td></tr>\n),$percent_total;
[download]