use vars qw(@MyArray);
@MyArray = 1..10;
print "Before: @MyArray\n";
&Dizzy();
print "After: @MyArray\n";

sub Dizzy {
  local @MyArray[4..6];
  @MyArray = map { $_ * 2 } @MyArray;
}