Select Code to Download

#! /usr/bin/perl
use warnings;
...

my @sorted = sort biblically @unsorted;
say for @sorted;

sub biblically {
    $order{$a->[0]} <=> $order{$b->[0]}
...
             sort biblically
             map [/(.*?) ([0-9]+):([0-9]+)/, $_],
             @unsorted;

Ephesians 3:18, 19
Ephesians 3:18-21