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,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";
}