while ~feof(fileIDS);
  m1=fgetl(fileIDS);
  [a,b]=intersect(dataD{1},{deblank(m1)});
  if     (~isempty( a))
    data=dataD{2}(b);
  elseif(~isempty(intersect(dataT{1},{deblank(m1)})) )
    data=1.0;
  else
    data=0.0;
  end;
end;

##</code><code>##

  intersection (2D data,scalar)
  if intersection exists not null
     a=index of location
     data= value of location at b
  elseif intersection (1D data,scalar) 
     data=1.0
  else
     data=0.0
  endif

##</code><code>##

use 5.12.0;
use strict;
use warnings;
use diagnostics;
use List::MoreUtils;

open my $TEST, '<', $f_Test or die "Could not open=> $f_Test : $!";
my $data;
while (my $scalar=<$TEST>)
{
  chomp($scalar);
[my $a, my $b]=firstidx { $_ == $scalar } @arrayPFA;
  if(!exists $a)
  {
    $data=$arrayPFA[$b];
  }
  elsif(if any { ! defined($scalar) } @arrayT;)
  {
    $data=1.0;
  }
  else
  {
    $data=0.0;
  };
};
close $TEST