http://qs321.pair.com?node_id=1064254

#!/usr/bin/perl # ref-ref-anonymous-array.pl perl ref-ref-anonymous-array.pl Pr +int what is in a reference to a reference to an anonymous array. use strict; use warnings; my $aaa = [1, 2, 3]; use Data::Dumper; print Dumper($aaa); my $bbb = \$aaa; use Data::Dumper; print Dumper($bbb); my $ccc = \$bbb; use Data::Dumper; print Dumper($ccc); foreach my $entry (@$$$ccc) { # Print what is in the anonymous array. print $entry, "\n"; } foreach my $entry (@$aaa) { # Print what is in the anonymous array. print $entry, "\n"; } __END__