#!/afs/athena/contrib/perl5/perl

while(<>){
    next unless m,mit.edu/machine?,;

    if(m,<tr><td>(\d+)</td><td>[^>]+>([\d\.]+)<,){
	$count = $1;
	$host = $2;
	$hits{$host}+=$count;
#	print("$count $host\n");
    }
}

@tophosts = sort {$hits{$a} <=> $hits{$b}; } keys %hits;

foreach $h (@tophosts){
    print("$h $hits{$h}\n");
}