#!/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__