my @array = ();

##</code><code>##

$array[1] = { val => "The initial value for 1", one => 'undef' };
$array[0] = { val => "The initial value for 0", one => \$array[1]{val} };
$array[2] = { val => "The initial value for 2", one => \$array[1]{val} };
$array[3] = { val => "The initial value for 3", one => \$array[1]{val} };

##</code><code>##

for my $i (0 .. 3) {
    print "# $array[$i]{one}\n";
    if (ref $array[$i]{one} eq 'SCALAR') {
        print "#\t${$array[$i]{one}}\n";
    }
}

##</code><code>##

# SCALAR(0x8114938)
# 	The initial value for 1
# undef
# SCALAR(0x8114938)
# 	The initial value for 1
# SCALAR(0x8114938)
# 	The initial value for 1

##</code><code>##

for my $i (0 .. 3) {
    $array[$i] = { val => rand(time)%3, one => \$array[1]{val} };
}

##</code><code>##

print "\n";
for my $i (0 .. 3) {
    print "# $array[$i]{one}\n";
    if (ref $array[$i]{one} eq 'SCALAR') {
        print "# \t${$array[$i]{one}}\n";
    }
}

##</code><code>##


# SCALAR(0x8114938)
# 	The initial value for 1
# SCALAR(0x8114938)
# 	The initial value for 1
# SCALAR(0x81adcd8)
# 	0
# SCALAR(0x81adcd8)
# 	0