#! perl
use strict;
use warnings;
use Statistics::ROC;
use Data::Dump;

my @AoA;

while (<DATA>)
{
    my   @pairs = split;
    push @AoA,  [ split /,/ ] for @pairs;
}

dd @AoA;
my @curves = roc('decrease', 0.95, @AoA);

print "$curves[0][2][0]  $curves[0][2][1]\n";

__DATA__
0.9883817,1   0.770431568,1 0.983195895,1 0.812109932,1
0.901505931,1 0.72431528,1  0.73553418,1  0.724572657,1