#!perl -w

use strict;
use File::Find;

my $prefixDir = "$ENV{HOME}/sa/current";
my @clusterDirs= ("$prefixDir/cluster1", "$prefixDir/cluster2", "$prefixDir/cluster3", "$prefixDir/cluster4", "$prefixDir/cluster5");

for my $dir ( @clusterDirs ) {
    print "$dir\n";
    find( sub {
        return unless -T;
        printf "file: $_: %d\n", -s;                # file name only
#       printf "file: $File::Find::name: %d\n", -s; # full path
    }, $dir);
}