open A,"< 2010-results.txt";
while (<A>)
{
    chomp;
    my ($const,$party,$votes) = split "}",$_;
    ${$v{$const}}{$party} = $votes;
}

for my $u (keys %v)
{
    my %l = %{$v{$u}};
    my $tv = 0; for my $w (values %l) { $tv += $w; }
    for my $w (keys %l)
    {
	$stands{$w}++;
	if ($l{$w}>0.05*$tv) {$deposits{$w}++;}
    }
}

for $u (sort {$stands{$a} <=> $stands{$b}} keys %stands)
{
    if (!defined $deposits{$u}) {$deposits{$u}=0;}
    if ($stands{$u}>20)
    {
	print "<tr><td>$u</td><td>$stands{$u}</td><td>$deposits{$u}</td></tr>\n";
    }
}