Select Code to Download

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

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