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