#!/usr/bin/perl
use strict;
use warnings;

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

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

sub stepp_trou
{
  my $matrix=shift;
  my $sx=shift;
  my $sy=shift;
  for my $s (0..2)
  {
    for my $t (0..2)
    {
      my $m=$t;
      my $k=$s;

      ($k,$m)=($t,$s) if($sx);
      for (0..3)
      {
        print $matrix->[$k]->[$m]."\t";
        $k+=$sy;
        $m+=$sx;
      }
      print "\n";
    }
    for my $t (3..5)
    {
      my $m=$t;
      my $k=$s;
      ($k,$m)=($t,$s) if($sx);
      for (0..3)
      {
        print $matrix->[$k]->[$m]."\t";
        if($sx && $sy)
        { $k-=$sy; }
        else
        { $k+=$sy }
        $m+=$sx;
      }
      print "\n";
    }
    print "\n";
  }
}

print "*** Die Diagonalen ***\n";
stepp_trou(\@aa,1,1);
print "*** Die Senkrechten ***\n";
stepp_trou(\@aa,0,1);
print "*** Die Waagerechten ***\n";
stepp_trou(\@aa,1,0);