while ($numdisks > $loop++) {
    $string = $string ."x";
    push (@polea, $string);
}

##</code><code>##

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