sub byBiblicalBookOrder {
my %sortdata = ( 
'Genesis'	=>	'100',
'Gen'	=>	'100',
'Ge'	=>	'100',
'Gn'	=>	'100',
'GEN'	=>	'100',
'GE'	=>	'100',
'GN'	=>	'100',
'GENESIS'	=>	'100',

'Exodus'	=>	'200',
'Exo'	=>	'200',
'Ex'	=>	'200',
'Exod'	=>	'200',
'EXO'	=>	'200',
'EX'	=>	'200',
'EXOD'	=>	'200',
'EXODUS'	=>	'200',

'Leviticus'	=>	'300',
'Lev'	=>	'300',
'Le'	=>	'300',
'Lv'	=>	'300',
'LEV'	=>	'300',
'LE'	=>	'300',
'LV'	=>	'300',
'LEVITICUS'	=>	'300',

...

'Revelation'	=>	'9000',
'Rev'	=>	'9000',
'Re'	=>	'9000',
'The Revelation'	=>	'9000',
'Apocalypse'	=>	'9000',
'Apoc'	=>	'9000',
'REVELATION'	=>	'9000',
'REV'	=>	'9000',
'RE'	=>	'9000',
'THE REVELATION'	=>	'9000',
'APOCALYPSE'	=>	'9000',
'APOC'	=>	'9000'
);

if ($sortdata{$a} > $sortdata{$b}) {
  return 1
 } elsif ($sortdata{$b} > $sortdata{$a}) {
  return -1
 } else {
  return 0
 }
}  # END SUB byBiblicalBookOrder