@sorted = @$setarray[ sort {$$setarray[$a]->size() <=> $$setarray[$b]->size()} 0 .. $#setarray ];