Select Code to Download

    $a[ 0 ] cmp $b[ 0 ]

    nameToNumber{ $a[ 0 ] } <=> nameToNumber{ $b[ 0 ] }

#! perl -sw
use strict;
...
Philippians 1:6, 27-29
Matthew 7:6-12, 15
Philippians 2:13-15

C:\test>junk66
Acts 2:4
...
Philippians 1:6, 27-29
Philippians 2:13-15
Psalm 56:3