my @data = (1 .. 5);

{
  local $data[2] = 100;
  print_data();
}
print_data();

sub print_data {
  print "@data\n";
}