use 5.12.0;
use File::Slurp;
use File::Find ; 
use Cwd ; 

my %value;

open LOG, ">log/log.log" or die;

while (<DATA>) {
	chomp;
	if (/^(.*)$/) {
		$value{$1} = $1
	}
}

my $fileText = read_file("/Users/Henry/Documents/WACS/Tips_and_Hacks/MAST_tW_PDF_Updater/FilesForUpdates/Temp/ULB_text.txt", binmode => 'utf8');

$fileText = "\n" . $fileText;

foreach my $thisWord (sort keys %value) {
	print $thisWord . "\n";
	if ($fileText =~ /\n([^\n\t]*)\t[^\n]*$thisWord\b/) {
		say LOG $thisWord . ", " . $1;
	}
	
}

close LOG;

__DATA__
Aaron
Abel
Abiathar
Abijah
Abimelek
Abner
Abraham
Absalom
Adam
Adonijah
Ahab
Ahaz
Ahaziah
Ahijah
Ai
Amalek
Amaziah
Ammon
Amnon
Amorite
Amos
Amoz
Andrew
Annas
Antioch
Apollos
Aquila
Arabah
Arabia
Aram
Ararat
Artaxerxes
Asa
Asaph
Ashdod
Asher
Asherah
Ashkelon
Asia
Assyria
Athaliah
Azariah
Baal
Baasha
Babel
Babylon
Balaam
Barabbas
Barnabas
Bartholomew
Baruch
Bashan
Bathsheba
Beelzebul
Beersheba
Benaiah
Benjamin
Berea
Beth Shemesh
Bethany
Bethel
Bethlehem
Bethuel
Boaz
Caesar
Caesarea
Caiaphas
Cain
Caleb
Cana
Canaan
Capernaum
Carmel
Chaldea
Cilicia
Colossae
Corinth
Cornelius
Crete
Cush
Cyprus
Cyrene
Cyrus
Damascus
Dan
Daniel
Darius
David
Delilah
Eden
Edom
Egypt
Ekron
Elam
Eleazar
Eliakim
Elijah
Elisha
Elizabeth
En Gedi
Enoch
Ephesus
Ephraim
Ephrath
Esau
Esther
Ethiopia
Euphrates River
Eve
Ezekiel
Ezra
Gabriel
Gad
Galatia
Galilee
Gath
Gaza
Gerar
Geshur
Gethsemane
Gibeah
Gibeon
Gideon
Gilead
Gilgal
Girgashites
Golgotha
Goliath
Gomorrah
Goshen
Greece
Greek
Habakkuk
Hagar
Haggai
Ham
Hamath
Hamor
Hananiah
Hannah
Haran
Hebron
Hermon
Herod
Herodias
Hezekiah
Hilkiah
Hittite
Hivite
Horeb
Hosea
Hoshea
Iconium
Isaac
Isaiah
Ishmael
Issachar
Jacob
James 
Japheth
Jebus
Jehoiachin
Jehoiada
Jehoiakim
Jehoram
Jehoshaphat
Jehu
Jephthah
Jeremiah
Jericho
Jeroboam
Jerusalem
Jesse
Jethro
Jezebel
Jezreel
Joab
Joash
Job
Joel
John 
John Mark
Jonah
Jonathan
Joppa
Joram
Jordan River
Joseph 
Joshua
Josiah
Jotham
Judah
Judas.*Iscariot
Judas son of James
Judea
Kadesh
Kedar
Kedesh
Kerethites
Kidron Valley
Korah
Laban
Lamech
Lazarus
Leah
Lebanon
Levi
Leviathan
Lot
Luke
Lystra
Maakah
Macedonia
Maker
Malachi
Manasseh
Martha
Mary
Mary 
Mary.*Magdalene
Matthew
Mede
Melchizedek
Memphis
Meshech
Mesopotamia
Micah
Michael
Midian
Miriam
Mishael
Mizpah
Moab
Molech
Mordecai
Moses
Mount of Olives
Naaman
Nahor
Nahum
Naphtali
Nathan
Nazareth
Nebuchadnezzar
Negev
Nehemiah
Nile River
Nineveh
Noah
Obadiah
Omri
Paddan Aram
Paran
Paul
Peor
Perizzite
Persia
Peter
Pharaoh
Philip
Philippi
Philistia
Philistines
Phinehas
Phoenicia
Pilate
Pontus
Potiphar
Priscilla
Rabbah
Rachel
Rahab
Ramah
Ramoth
Rebekah
Rehoboam
Reuben
Rimmon
Rome
Ruth
Salt Sea
Samaria
Samson
Samuel
Sarah
Saul
Sea of Galilee
Sea of Reeds
Sennacherib
Seth
Sharon
Sheba
Shechem
Shem
Shiloh
Shimei
Shinar
Sidon
Silas
Simeon
Simon the Zealot
Sinai
Sodom
Solomon
Stephen
Sukkoth
Syria
Tamar
Tarshish
Tarsus
Terah
Thessalonica
Thomas
Timothy
Tirzah
Titus
Troas
Tubal
Tychicus
Tyre
Ur
Uriah
Uzziah
Vashti
Xerxes
Zacchaeus
Zadok
Zebedee
Zebulun
Zechariah 
Zedekiah
Zephaniah
Zerubbabel
Zoar
