my $total;
# setze x auf den ersten bis letzten Index des aeusseren Array
for my $x ( 0 .. $#feld ){

        # setze y auf den ersten bis letzten Index des Array in zweiter Ebene
        for my $y ( 0 .. $#{$feld[$x]} ){

                # setze z auf den ersten bis letzten Index des Array in dritter Ebene
                for my $z ( 0 .. $#{ $feld[$x]->[$y] } ){

                        # x ist echtes Feld, daher ohne Pfeil
                        # für y und z muss dereferenziert werden, daher mit Pfeil
                        $total += $feld[$x]->[$y]->[$z];
                }
        }
}
print $total;