my $length;
my $width=4;
sub print_formatted{
        my ($max,$t1,$t2,$t3,$t4,$t5,$t6) = @_;

        # berechne den linken Rand $lRand
        my ($lRand) = int( ($max - length $t4) / 2 );
        # berechne den rechten Rand $rRand
        my $rRand = $max - $lRand - length $t4;

        my $format = "%6d %-12s %-12s %*s%s%*s %-12s %10d\n";

        print sprintf $format, $t1,$t2,$t3,$lRand,' ',$t4,$rRand,' ',$t5,$t6;
}


print sprintf "%6s %-12s %-12s %s %-12s %10s\n", "Spalte1", "Spalte2", "Spalte3", "Spalte4", "Spalte5", "Spalte6";
      
        for(my $i=0; $i<=$#array; $i=$i+6) {
                print_formatted($width, $array[$i], $array[$i+1], $array[$i+2], $array[$i+3], $array[$i+4], $array[$i+5]);
        }