use warnings;
use strict;

my @name1 = qw(Peter Bauer 32);
my @name2 = qw(Marie Fink 43);
my $name = "Peter";

my @namen_2d = (\@name1, \@name2);

for (my $i=0; $i<=$#namen_2d; $i++){
	print "$namen_2d[$i][0], $namen_2d[$i][1], $namen_2d[$i][2]\n";
}	

print "\n";

for (my $i=0; $i<=$#namen_2d; $i++){
	if ($namen_2d[$i][0] eq $name){
		print "Peter gefunden\n";
		splice(@namen_2d,$i,1,"Bauer-Weider")
	}
}

for (my $i=0; $i<=$#namen_2d; $i++){
	print "$namen_2d[$i][0], $namen_2d[$i][1], $namen_2d[$i][2]\n";
}