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>';