# a form of toolic wisdom
for ( sort { $a <=> $b } keys %{ $bible{'Genesis'}{'chapter 1'} } ) { # updated
    print $_, ": ", @{ $bible{'Genesis'}{'chapter 1'}{$_} }, $/;
}