my (@data,$totalvotes,@legend,$i);
    while (my @r = $sth->fetchrow) {
        push @{$data[0]}, ++$i;
        push @legend,"$i: $r[1]";

        push @{$data[1]}, $r[2];
        $totalvotes += $r[2];
    }
    $sth->finish;

    if ($totalvotes > 0) {
        for (@{$data[1]}) {
            $_ = int(($_ / $totalvotes) * 100).'%';
        }
    }