#!/usr/bin/perl

use v5.12;
#use strict;
use warnings;


my @daten0 = qw[Blume Baum Pilz Rose Obst Gemüse];
my @daten1 = qw[1 2 3 4 5 6];
my $ref0 = \@daten0;
my $ref1 = \@daten1;

# Matrix erstellen
my @matrix = ($ref0, $ref1);
	print  "Vorher: ".${$matrix[0]}[1]."\n";

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

# Neue Daten-Zeile hinzufügen
my @daten2 = qw[Hai Hirsch Käfer Fisch Reh Tiger];
my $ref2= \@daten2;
push @matrix, $ref2;
	print  ${$matrix[2]}[-1]."\n";

# Datensätze austauschen/verschieben
    print  "Vorher: ".${$matrix[2]}[3]."\n";
#@daten0,@daten2 = @daten2,@daten0; # funktioniert nicht
my @tempdaten = @daten0;
@daten0 = @daten2;
@daten2 = @tempdaten;
	print  "Nachher: ".${$matrix[2]}[3]."\n";