Select Code to Download

    sub foo {
        my $array = shift;
...
        ... Changes in $copy won't affect $array ...
        return $copy;
    }

 #!/usr/bin/perl

...
  - 4
  - 5
  - 6