open (FILE);
my $data = 0;
my $partnumber = 5;  # changes constantly
while(<FILE>){$data++ if ($_ =~ /^SS/)} # to get the number of objects in a file
close FILE;
my $chunk = $data/$partnumber;
my $remainder = $data%$partnumber ;
my $index = 1;
open(FILE$index);
open (FILE);
my $i = 0;
my $remain = 1;
while(<FILE>){
 if (m/^SS/){
   $i++;
   $chunk +=1 if ( $remain < $remainder);
   if ($i >= $chunk){
	$i = 0;
    $remain++;
	close FILE$index;
    $index++;
	open (FILE$index);
   }
}
print FILE$index "$_";
}
close FILE & FILE$index;