my $prefixDir = "$ENV{HOME}/sa/current";
my @clusterDirs= qw(cluster1 cluster2 cluster3 cluster4 cluster5);
 
foreach my $configDir (@clusterDirs) {
    opendir DIR, "$prefixDir/$configDir" or die "Cannot access $prefixDir/$configDir: $!\n";
    my @configFileList = grep /[^.]/, readdir DIR;
    print "$configDir\n";    
    foreach my $fileToCompare (@configFileList) {        
        my $lineCount = 0;        
        open FILE, "$prefixDir/$configDir/$fileToCompare" or die "file not available: $!\n";
        $lineCount++ while <FILE>;
        close FILE;
        print "file: $fileToCompare: $lineCount\n";      
   }
}