Select Code to Download

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

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