#!/usr/local/bin/perl

while(<>){
    $ct++;
    $tct++;
    ($ip, $x, $x, $x, $x, $x, $path, @rest) = split;
    $ipct{$ip}++;
    $path{$path}++;
    if($ct > 99){
	$ct = 0;
	$lct=0;
	print "---------------- $tct -----------------------\n";
	for $tip (sort {$ipct{$b} <=> $ipct{$a};} keys %ipct){
	    $tippct = 100*$ipct{$tip}/$tct;
	    print "$ipct{$tip} $tip\n";
	    $lct++;
	    last if $lct>=10;
	}
	$lct=0;
	for $tp (sort {$path{$b} <=> $path{$a};} keys %path){
	    $tppct = 100*$path{$tp}/$tct;
	    print "$path{$tp} $tp\n";
	    $lct++;
	    last if $lct>=10;
	}
	print "\n";
    }
}