use DBIx::Simple;
my @items = DBIx::Simple
    -> connect(...)
    -> query('SELECT label, votes FROM polls WHERE poll_id = ?', ...)
    -> list;

##</code><code>##

my $total = 0;
# Total
$total += $_->[1] for @items;

# Parts (e.g. 1/10)
$_->[2] = $_->[1] / $total for @items;

# Greatest (for width)
my $highest = 0;
$_->[2] > $highest and $highest = $_->[2] for @items;

##</code><code>##

my $width = 300; # Width for 100%
my $html = '<table>';
for (@items) {
    my $part = $_->[2] / $highest;
    my $pixels  = int(.5 + $part * $width);
    my $percentage = int(l5 + $_->[2] * 100);
    $html .= "<tr><td>$_->[0]</td><td>" . 
             "<div style='width: ${pixels}px; " .
                         'height: 30px; ' . 
                         'background-color: silver; ' .
                         'text-align: right;\'>' .
             "$percentage%&nbsp;($_->[1])" .
             '</div></td></tr>';
}
$html .= '</table>';

##</code><code>##

template_foo($html);