#!/usr/bin/perl

use warnings;
use strict;

my @matrix = (["Blume", "Baum", "Pilz", "Rose", "Obst", "Gemüse"],
              [1, 2, 3, 4, 5, 6]);

print "Vorher: ".$matrix[0][1]."\n";

# Eintrag ändern
$matrix[0][1] = "Ahornbaum";
print "Nachher: ".$matrix[0][1]."\n";

# Neue Daten-Zeile hinzufügen
push(@matrix, ["Hai", "Hirsch", "Käfer", "Fisch", "Reh", "Tiger"]);
print $matrix[2][1]."\n";