$ 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