my @polea = map 'x' x $_, 1 .. $numdisks;