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

Public Scratchpad

Download, Select Code To D/L

---

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