$a=~/^((\d+ )?\w+)/
$abook=$1;
$b=~/^((\d+ )?\w+)/;
$bbook=$1;

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