Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
my $box2_ref = gimme();
print "tracing: $box2_ref -> $box2_ref->[0] -> $box2_ref->[0]->{white_
+box} -> $box2_ref->[0]->{white_box}->{content}\n";
print Dumper $box2_ref->[0]->{white_box}->{content};

Select or download this

tracing: ARRAY(0x20d9e70) -> HASH(0x1fcf638) -> HASH(0x20d9db0) -> HAS
+H(0x20d9de0)
$VAR1 = {
...
$VAR1 = {
          'apples' => 5
        };