#!usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use List::Util qw(sum);

my @feld=(
        [
                [1,2],
                [3,4],
        ],
        [
                [5,6],
                [7,8],
        ],
);

# das Konstrukt ausgeben
#print Dumper(\@feld);

# alle Felder durchgehen

my $total;
for my $x (0..$#feld){
        for my $y (0..$#{$feld[$x]}){
                for my $z (0..$#{$feld[$x][$y]}){
                        $total += $feld[$x][$y][$z];
                }
        }
}
print "$total\n";

# alternativ ohne Index,
# indem über die Arrays direkt iteriert wird:

my $all;
for my $x (@feld){
        for my $y (@$x){
                for my $z (@$y){
                        $all += $z;
                }
        }
}
print "$all\n";

# das kann man auch mit map schreiben:
my $summe=0;
map {
  map{
    map{
      $summe+=$_
    } @$_
  } @$_
} @feld;
print "$summe\n";

# oder über sum und map:
my $sum = sum map {
            sum map{
              sum(@$_)
            } @$_
          } @feld;

print "$sum\n";