#!usr/bin/perl
use strict;
opendir(DIR, "") or die "$!";
my @files =grep {/\.out$/} readdir (DIR);
my %frequency;
foreach my $file(@files){
open(FR,$file);
while(<FR>){
my @column = split ' ' or next;
$frequency{$column[2]}++;
}
{

local($\,$,) = ("\n","\t");
my @max = sort {$frequency{$b} <=> $frequency{$a}}  keys %frequency;

print "$max[0]=$frequency{$max[0]}\n";
}
}
closedir (DIR);