use Statistics::ROC;
 open(fh,"<roc_tp_fp.txt");
 while ( <fh> ) {
 ($a,$b)=split/,/;
    push @AoA, [ split ];
 }
 for $aref ( @AoA ) {
    #print "[ @$aref ],";
 }
@curves=roc('decrease',0.95,@AoA);
   print "$curves[0][2][0]  $curves[0][2][1] \n";