$ perl
my @a = qw/a b c d e/;

sub printthese {
  local $, = ', ';
  print @{$_[0]};
  print "\n";
}

printthese( [ @a[0, 2, 4] ]);
^D
a, c, e

##</code><code>##

$ perl
my @a = qw/1 2 3 4 5/;

sub zerothese {
  $_ = 0 for @{$_[0]};
}

zerothese( &{sub {\@_}} (@a[0, 2, 4]) );

print join ', ', @a;
print "\n";
^D
0, 2, 0, 4, 0