Help for this page

Select Code to Download


  1. or download this
    my $original = [qw(alpha beta gamma)];
my @duplicate;

...

print "Original: $_\n" for (@$original);
print "Mofified: $_\n" for (@duplicate);
  2. or download this
    Original: alpha
Original: beta
Original: gamma
Mofified: 0.421875
Mofified: 0.108734130859375
Mofified: 0.69537353515625