use vars qw(@Array);

@Array = 1..40;
print "Before: @Array\n";
{
  local @Array[0..19];
  $_++ for @Array;
  print "Inside:  @Array\n";
}
print "Outside: @Array\n";