# spielfeld
my @a0 = qw /28 22 15 6 33 1/;
my @a1 = qw /7 10 32 27 11 14/; 
my @a2 = qw /23 18 5 31 9 30/;
my @a3 = qw /4 36 29 20 16 24/;
my @a4 = qw /13 25 17 3 35 19/;
my @a5 = qw /34 2 26 12 21 8/;
my @aa = ( \@a0, \@a1, \@a2, \@a3, \@a4, \@a5 );

#*********************************** Programm ***************


say "*** Die Diagonalen ***";
for (0..2) {
	for my $t (0..2) {
		my $k = $t;
		my $m = $_;
		for my $i (0..3) {
		print ${$aa[$k]}[$m]."\t";
			$k++;
			$m++;
		}
		print "\n";
	}
	for my $t (3..5) {
		my $k = $t;
		my $m = $_;
		for my $i (0..3) {
		print ${$aa[$k]}[$m]."\t";
			$k--;
			$m++;
		}
		print "\n";
	}
print "\n";
}
say "*** Die Senkrechten ***";
for (0..2) {
	for my $t (0..2) {
		my $k = $_;
		my $m = $t;
		for my $i (0..3) {
		print ${$aa[$k]}[$m]."\t";
			$k++;
		}
		print "\n";

	}
	for my $t (3..5) {
		my $k = $_;
		my $m = $t;
		for my $i (0..3) {
		print ${$aa[$k]}[$m]."\t";
			$k++;
		}
		print "\n";
	}
print "\n";
}

say "*** Die Waagerechten ***";
for (0..2) {
	for my $t (0..2) {
		my $k = $t;
		my $m = $_;
		for my $i (0..3) {
		print ${$aa[$k]}[$m]."\t";
			$m++;
		}
		print "\n";
	}
	for my $t (3..5) {
		my $k = $t;
		my $m = $_;
		for my $i (0..3) {
		print ${$aa[$k]}[$m]."\t";
			$m++;
		}
		print "\n";
	}
print "\n";
}