#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use Statistics::ROC;

open(my $fh, "<roc_tp_fp.txt") or die "cannot open file 'roc_tp_fp.txt': $!\n";
my @AoA;
while ( <$fh> ) {
  chomp;
  push @AoA, [ split /,/ ];
}
close $fh;

print Dumper( \@AoA ) . "\n";

my @curves = roc('decrease', 0.95, @AoA);
print Dumper( \@curves ) . "\n";