open(FD,"FILE_LAST_MOD_DIR") or die $!;
my @array_LAST_MOD_FILE=<FF>;
close(FD);

#While length of array not eq 0
while(@array_LAST_MOD_FILE != 0) {
        for($arr=0;$arr<@array_LAST_MOD_FILE;$arr++) {
                chomp($array_LAST_MOD_FILE[$arr]);
                print "ARRAY ELEMENT in $arr position |$array_LAST_MOD_FILE[$arr]| \n";
                my @arr_find=`find $array_LAST_MOD_FILE[$arr] -iname *END*.txt -type f`;
                my $length_of_array=@arr_find;
                print "LENGTH OF THE ARRAY=$length_of_array|\n";
		#If Length is 0 means, file not yet created, go to next path
                if($length_of_array eq 0) {
                        next;
                } else {
			#You got END file, delete the entry from FILE as well as Array	
                        delete $array_LAST_MOD_FILE[$arr];
                        open(FD,">>FILE_LAT_MOD_DIR") or die $!;
                        foreach my $i (@array_LAST_MOD_FILE) {
                                print FD"$i\n";
                        }
                        close(FD);
                }#End If
        }#End For
}#End While