use strict;
use warnings;
use Test::Simple tests => 6;

# Scalars
my $x = 3;

my $scalar_ref = \$x;
ok( $x eq ${$scalar_ref}, 'EXAMPLE I');

my $scalar_ref_ref = \$scalar_ref;
ok( $x eq ${${$scalar_ref_ref}}, 'EXAMPLE II' );    # Rule 2 recurrsive


# Array
my @array = (0, 1, 2, 3);

my $array_ref = \@array;
ok( join( @array) eq join( @{$array_ref} ), 'EXAMPLE III' );
ok( $array[3] eq ${$array_ref}[3], 'EXAMPLE IV' );  # value = 3

# Array-0f-Arrays
my @as = qw(a aa aaa aaaa);
my @bs = qw(b bb bbb bbbb);
my @cs = qw(c cc ccc cccc);
my @ds = qw(d dd ddd dddd);
my @AoA = (\@as, \@bs, \@cs, \@ds);

ok( join( @ds ) eq join( @{$AoA[3]} ), 'EXAMPLE V' );
ok( $ds[3] eq ${$AoA[3]}[3], 'EXAMPLE VI' );    # value = 'dddd'