Acts 4:29-31
Numbers 14:10
Luke 1:20
John 16:15
Acts 2:4
1 Peter 1:22
Psalm 56:3
2 Corinthians 12:2, 4, 1, 11
Ephesians 3:18, 19
Ephesians 4:14, 13, 17, 18; 5:15, 16
Matthew 24:24
Colossians 2:6-8
Hebrews 10:35-39
Hebrews 4:10-12
Philippians 1:6, 27-29
Matthew 7:6-12, 15
Philippians 2:13-15

##</code><code>##

Numbers 14:10
Psalm 56:3
Matthew 7:6-12, 15
Matthew 24:24
Luke 1:20
John 16:15
Acts 2:4
Acts 4:29-31
2 Corinthians 12:2, 4, 1, 11
Ephesians 3:18, 19
Ephesians 4:14, 13, 17, 18; 5:15, 16
Philippians 1:6, 27-29
Philippians 2:13-15
Colossians 2:6-8
Hebrews 4:10-12
Hebrews 10:35-39
1 Peter 1:22

##</code><code>##

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

##</code><code>##

print sort byBiblicalBookOrder map{/^(.*)(?>(?:\s.{1,5}(:\d+)*.*))/} @references;