#!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],
	],
);

print $feld[0][1][0]; #einzelnen Eintrag ausgeben

my @foos = map { sum @$_ } @$feld;
print Dumper \@foos;

my $total = sum @$feld;
print $total."\n";