if (grep { -f $_ and $_ eq $FilePath } @DirsArray){}
else{

##</code><code>##

unless ( grep { -f $_ and $_ eq $FilePath } @DirsArray ) {

##</code><code>##

   printf("\n" . $FilePath . "\n");

##</code><code>##

   print "\n" . $FilePath . "\n";

##</code><code>##

   while ( $line = <FILE> ) {
		
      push(@outLines, $line); #to be sent to appended large file
   }

##</code><code>##

   push @outLines, <FILE>; #to be sent to appended large file