my $original = [qw(alpha beta gamma)];
my @duplicate;

for (0..$#$original) {
  my $temp = $original->[$_];
  $temp = rand();
  push @duplicate, $temp;
}

print "Original: $_\n" for (@$original);
print "Mofified: $_\n" for (@duplicate);

##</code><code>##

Original: alpha
Original: beta
Original: gamma
Mofified: 0.421875
Mofified: 0.108734130859375
Mofified: 0.69537353515625