...
    my @saved_verses = @verses;
    $bible{$book}{$chapter}{'verses'} = \@saved_verses;
    @verses = (); # use again for next chapter

##</code><code>##

    my $n = 0;
    $bible{$bookname}{$chapter}{'verses'}[$n];
    # but neither of the following seem to work
    join("\n\n",$bible{$bookname}{$chapter}{'verses'}[0..$#{$bible{"$bookname"}{"$chapter"}{'verses'}}]);
    join("\n\n",$bible{$bookname}{$chapter}{'verses'});
    # I get instead ARRAY(0x[0-9]*) or Argument "" isn't numeric in array element at ...