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