Help for this page

Select Code to Download

Select or download this

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

Select or download this

# undef
# SCALAR(0x176f1c4)
#       value number 0
...
#       value number 0
# SCALAR(0x176f1c4)
#       value number 0