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