#!/usr/bin/perl

system("clear");
open(FILE,"/var/log/everything");
my $i=0;
while($input=<FILE>){
     if($input=~/fwa/i){
     $i++; @parsed[$i]=$input;
     }
}
print "\n $i  entities";

foreach my $test (@parsed){
        my $data="";
        my $x="";
        my $t="";
                foreach my $final (@parsed){
                     if($final eq $test){
                     $x++;
                     my $data='valid_time';
                     }
                $t++;
                }
        if($data eq "valid_time"){
        print "$x $test";
        }
}