#!/usr/bin/perl

use v5.12;
use warnings;

my %matrix = (
    Pflanzen => [qw(Blume Baum Pilz Rose Obst Gemüse)]
    , Zahlen => [qw(1 2 3 4 5 6)]
);

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

# Neue Daten-Zeile hinzufügen
$matrix{Viecher} = [qw(Hai Hirsch Käfer Fisch Reh Tiger)];
print "Letztes Element: " . $matrix{Viecher}->[-1] . "\n";

# Datensätze austauschen/verschieben
print "Vorher: " . $matrix{Viecher}->[3] . "\n";
($matrix{Pflanzen}, $matrix{Viecher}) = ($matrix{Viecher}, $matrix{Pflanzen}); # hier natürlich nicht sinnvoll
print "Nachher: " . $matrix{Viecher}->[3] . "\n";