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";
}

##</code><code>##

BEFORE: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
INSIDE: 1 2 3 4 104 105 106 107 108 109 110 111 13 14 15 16 17 18 19 20
AFTER: 1 2 3 4 5 6 7 8 9 10 11 111 13 14 15 16 17 18 19 20