my @polea = "";
my @poleb = "";
my @polec = "";

##</code><code>##

for (my $len = 0 ;$len <= $numdisks; $len++) {
    print join "\t\t\t", map {$_->[$len] || ""} \@polea, \@poleb, \@polec;
    print "\n";
}