for ( keys %{ $bible{'Genesis'}{'chapter 1'} }) {
    print $_, ": ", @{ $bible{'Genesis'}{'chapter 1'}{$_} }, $/;
}