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