proc EJL_clusterLoop() {

string $sel[] = `ls -sl -fl`;
string $x;
string $clusterArray[];

for ($x in $sel) {

select -cl;
select -r $x;
SelectEdgeLoop;
PolySelectConvert 2;
PolySelectConvert 3;

performCluster false;
string $sel2[] = `ls -sl`;
print "\n"; print $sel2[0]; print "\n"; print "\n";
int $arraySize = `size($clusterArray)`;
$clusterArray[$arraySize] = $sel2[0];

//setSelectMode components Components; selectType -smp 0 -sme 1 -smf 0 -smu 0 -pv 0 -pe 1 -pf 0 -puv 0; select -cl;
}

print $clusterArray;
select -r $clusterArray;

}