Select Code to Download

sub foo {
  my @foo = @{[@{$_[0]}]};
  # etc
}

sub foo {
  my @foo = @{$_[0]};
  # etc
}

my $bar = ["hello", "world"];
foo($bar);
...
  # Try to mess up the first element.
  $foo[0] =~ s/h/H/;
}