#!/usr/athena/bin/perl

while(<>){
	split;
	$hits{$_[6]}++;
}

for $h (sort {$hits{$a} <=> $hits{$b}; } keys %hits){
	next unless ($hits{$h}>1);
	print("$hits{$h}\t$h\n");
}