#!/usr/bin/perl -w

use strict;

# Extract your data into a hashref
my $data = {};
while (<DATA>) {
chomp;
my ($name, $email, $votes) = split /\|/;
$data->{$name}->{votes} = $votes;
$data->{$name}->{email} = $email;
}

# Sort the data first by number of votes then alphabetically
my @sorted = sort {
$data->{$b}->{votes} <=> $data->{$a}->{votes} ||
$a cmp $b
} keys %$data;

print "Content-Type: Text/HTML\n\n";
print "<pre>\nTop Ten\n----------\n";

# Loop through the top ten
foreach (0 .. 9) {
print "$sorted[$_] ($data->{$sorted[$_]}->{email})" .
" has $data->{$sorted[$_]}->{votes} votes\n";
}

# I made all the names unique. If all your names are not
# unique, you will have to come up with some sort of unique
# identifier to key off of. Maybe something like:
# ID|Name|Email|Votes instead.

__DATA__
asd|asd@hastr.com|12
lero|lero@t.com|1
ze|ze@bah.com|10
re|re@irgh.com|3
aham|aham@oi.com|4
ui|ui@hi.com|9
asd1|asd@hastr.com|12
lero1|lero@t.com|1
ze1|ze@bah.com|10
re1|re@irgh.com|3
aham1|aham@oi.com|4
ui1|ui@hi.com|9
asd2|asd@hastr.com|12
lero2|lero@t.com|1
ze2|ze@bah.com|10
re2|re@irgh.com|3
aham2|aham@oi.com|4
ui2|ui@hi.com|9

# Loop through the top ten
for (my $i =0; $i <= 9; $i++) {
print "$sorted[$i] ($data->{$sorted[$i]}->{email})" .
" has $data->{$sorted[$i]}->{votes} votes\n";
}