One Item I have changed, which worked a tiny bit better, but is still too craptastic to ever be used:

#!/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($x>1){
        print "$x $test";
        }
}
[download]

I changed the output control, everything was returning because everything existed at least once (itself).