use warnings; use strict;
use vars qw(@array);
@array = 1..20;
print "BEFORE: @array\n";
&TestSub();
print "AFTER: @array\n";
sub TestSub {
  local @array[4..10];
  @array[4..11] = 104..111;
  print "INSIDE: @array\n";
}