#!/usr/bin/perl

use v5.12;
use warnings;

my @matrix = (
    [qw(Blume Baum Pilz Rose Obst Gemüse)]
    , [qw(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, [qw(Hai Hirsch Käfer Fisch Reh Tiger)];

print "Letztes Element: " . $matrix[2]->[-1] . "\n";

# Datensätze austauschen/verschieben
print "Vorher: " . $matrix[2]->[3] . "\n";
($matrix[0], $matrix[2]) = ($matrix[2], $matrix[0]);
print "Nachher: " . $matrix[2]->[3] . "\n";