哇，那是可怕的代码！我知道这不是你的错。
引用通常是对数组或散列的引用，但它$BookPageArray是对数组引用的引用。这是在炫耀还是在教你？
花括号就像数学表达式周围的括号。它们可能有助于澄清或混淆。
my $answer = 3 + 4 x 5 + 6; # Example 1
my $answer = 3 + ( 4 x 5 ) + 6; # Example 2
my $answer = ( 3 + 4 ) X ( 5 + 6 ); # Example 3
示例 1 和示例 2 相同。括号说明清楚了吗？你可以说他们这样做。在示例 3 中，括号是必需的。
my $answer = 1 + 3 + 4 + 9 + 10;
my $answer = ( ( ( ( 1 + 3 ) + 4 ) + 9 ) + 10 );
同样，这些都是相同的。问题是括号是否澄清了正在发生的事情（他们没有）或使它更难理解（他们这样做）。
这些也是等价的：
print $foo . "\n";
print ${foo} . "\n";
花括号可以在某些情况下提供帮助：
print "The file name is ${foo}_bar.txt\n";
在这里，你需要花括号来让 Perl 知道变量 is$foo和 not $foo_bar。这些是等价的：
print "The file name is ${foo_bar}.txt\n";
print "The file name is $foo_bar.txt\n";
因此，在您的陈述中，您有：
${$BookPageArray}->[0]."\n";
有些人喜欢这样，因为它有助于强调这${BookPageArray}是一个标量引用，并帮助您看到该引用正在被取消引用：
${$BookPageArray}->[0]."\n"; # I see that this is a scalar reference being dereferenced
$$BookPageArray->[0]."\n"; # Didn't notice the `$$`, so missed the dereferencing.
${${$BookPageArray}}[0]."\n"; # Yes, this is the same thing!
当您取消引用数组和哈希时，箭头->语法可以帮助澄清事情。
my $value = $foo->{BAR}; # I can see that `$foo` is a reference to an array!
my $value = ${${foo}}{BAR}; # Ow! This hurts my brain
my $value = $$foo{BAR}; # Easier on the brain, but I'll miss that `$foo` is a ref.
这些都是等价的，但第一个是最容易理解的。->不幸的是，取消引用标量没有等价物。幸运的是，它并不经常这样做。
大多数时候，引用只是为了创建复杂的数据结构：
my $person = {}; # This will be a hash reference (not necessary)...
$person->{NAME} = "Bob";
$person->{ADDR} = "123 Testing Ave.";
$person->{CITY} = "New York";
$person->{STATE} = "CA"; #Got you!
$person->{PHONE} = []; # Array Reference (not necessary)
$person->{PHONE}->[0] = {}; # Hash reference (not necessary)
$person->{PHONE}->[0]->{TYPE} = "cell";
$person->{PHONE}->[0]->{NUMBER} = "555-1234";
你可以在这个结构中看到，我有一个人，有姓名、地址和多个电话号码。
我不必将某些东西声明为数组引用或哈希引用，但它有时可以阐明您存储的内容。my $person = {};没有必要。我本来可以做的my $person，但这有助于澄清它是您正在使用的参考。为电话号码声明一个数组引用可能会增加烟雾而不是光线，并且不应该这样做。声明为$person->{PHONE}->[0]哈希引用实际上只是减损了正在发生的事情。
我建议使用内置Perl 参考教程。它直截了当且易于理解。我还建议你买一本关于现代 Perl的好书，因为 Perl 的编码风格和语法自 Perl 3.x 以来发生了变化，许多 Perl 书籍似乎仍然基于这些。
在熟悉了引用之后，您应该阅读面向对象的 Perl 教程。面向对象的 Perl 基本上是使用引用创建复杂的数据结构，但这样做的方式是便于跟踪复杂的结构。
跟踪这样的事情有点复杂：$person->{PHONE}->[0]->{NUMBER} = "555-1234";