My tool basically does this:

Cluster 1 =>

	Host 1 	
		(execute task sequence)
	Host 2 	
		(execute task sequence)
	Host 3 	
		(execute task sequence)
	Host 4 	
		(execute task sequence)		
	Host 5 	
		(execute task sequence)
	Host 6 	
		(execute task sequence)		
	Host 7 	
		(execute task sequence)		

Cluster 2
	
	|
	|
	|
	|
	v

Cluster 5

##</code><code>##

my $HostsPerCluster{$clusterNumber} = scalar(@clusterHosts);
my $totalClusterHosts = $HostsPerCluster{$clusterNumber}
my $failures = 0;
my $host_7 = $clusterHosts[-1];



### this sub is called in a looping statement

&do_stuff( $host, $file);

if ($totalClusterHosts - $failures < 2)
  {

### exit this loop and do other stuff

  }

sub do_stuff
 {

my $command = "/bin/true";

&sshExec('SESSION', $command);

$? && ++$failures;
 
return $success;
  }