{
  my @array;
  sub Merge {
    @array = @_;
    MergeSort(0, $#array);
  }
  sub MergeSort {
    # can see @array here...
  }
}