Perl中Data::Dumper处理后的Array少了一项？

[orangetouch]

代码如下：
#!/usr/bin/perl
use Data::Dumper;
$, = ',';
my @d1 = (1, 3);
my @d2 = (2, 4);
push @d1, \@d2;
push @d2, \@d1;
my $d = Dumper(\@d1, \@d2);
print $d;
eval $d;
print "@{$VAR1}\n@{$VAR2}";

输出结果：
$VAR1 = [
1,
3,
[
2,
4,
$VAR1
]
];
$VAR2 = $VAR1->[2];
1 3 ARRAY(0x2b25500)
2 4

第二项的输出结果为什么少了最后的一项引用？哪位大侠见过类似的问题请说明一下。谢谢。

[klbt]

关注，帮你顶。