open (LIST, "<all_res");
while ($output =<LIST>) {

$file = 'test.pat' ;
$file2 = $output ;
$file3 = $output . ".res";

#PROCESS A COUPLE OF FILES
open (COUNT, "<COMPARE");

while (<COUNT>) {

($i, $j) = split (/\s+/, $_);

if ($i == 1) {$totalinterface++};
if ($i == 0) {$totalnon++};

if ($j >= 0.5 && $i == 1) {$TP++ unless $j == 1 && $i == 1};
if ($j >= 0.5 && $i == 0) {$FP++};
if ($j <=0.499999 && $i == 1) {$FN++};
if ($j <=0.499999 && $i == 0) {$TN++};
$total = $TP+$FP+$FN+$TN;
 }
 #PRINT VALUES TO FILE
}  PROCEED ONTO NEXT FILE IN LIST