use strict;
use warnings;

##</code><code>##

while ( <fh> ) {
 ($a,$b)=split/,/;
    push @AoA, [ split ];
 }

##</code><code>##

[
  "0.9883817,1",
  "0.770431568,1",
  "0.983195895,1",
  "0.812109932,1",
  "0.901505931,1",
  "0.72431528,1",
  "0.73553418,1",
  "0.724572657,1",
]

##</code><code>##

#! 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

##</code><code>##

17:41 >perl 1327_SoPW.pl
(
  [0.9883817, 1],
  [0.770431568, 1],
  [0.983195895, 1],
  [0.812109932, 1],
  [0.901505931, 1],
  [0.72431528, 1],
  [0.73553418, 1],
  [0.724572657, 1],
)
Value out of range for table lookup (2): 0.72431528.
 at 1327_SoPW.pl line 45.

17:45 >