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";
}
}
I changed the output control, everything was returning because everything existed at least once (itself).