my (%agency,(%url,(%module,(%type,$type_count))));
my $pass_count=0;
my $fail_count=0;
my $new_count=0;

	while ($line=<FILE>) {
		($e1,$e2,$e3,$e4,$e5,$e6,$e7,$e8)=(split/\s+/,$line);
		$pf=substr($pf,0,4);  
		 if ($pf eq "pass") {
			 $agency{$e4,{$e7,{$e6,$pass_count++}}};
		if ($pf eq "fail) {
					 $agency{$e4,{$e7,{$e6,$fail_count++}}};
		if ($pf eq "new_") {
					 $agency{$e4,{$e7,{$e6,$new_count++}}};