open my $dff3, "<", $Config->{optim}->{dCdeffile} || die "Could not open file: $Config->{optim}->{dCdeffile} for acquiring destination cct data. bye.\n";
my $ncsv= Text::CSV->new ( {sep_char => ';',  binary => 1 });
$ncsv->eol("\r\n");
while ($ldata=$ncsv->getline($dff3))	
{
		push @destdcs, [@$ldata];			
}