#! /usr/bin/perl -w
# script to divide the subdomains of a complete run in half repeatedly
# ten times, creating a succession of directories named
# the current one D with a 2 appended for each split:  D2, D22, etc. 
# Uses "split1" from current directory to make each copy.

for ($i=1; $i<=10; $i++) {
  chop($dir = `pwd`);  #current directory
  system("./split1f");
  $dir = $dir."2";  #name just made by split1
  chdir $dir;
}
