#!/usr/bin/perl -w

use strict;

my @array1=qw(wert1 wert2);
my @array2=qw(wert1 wert2);

my $arrayref1=\@array1;
my $arrayref2=\@array2;

my %hash=("schluessel1" => "$arrayref1",
        "schluessel2" => "$arrayref2"
        );

foreach my $key (keys %hash) {
        print "$key: \t $hash{$key}\n";
}

foreach my $key ( keys %hash ) {
  my @array = @{ $hash{$key} };

  print "$key : @array ", $/;
}

foreach my $key ( keys %hash ) {
  print "$key : @{ $hash{$key} }", $/;
  # or edit  first element of each array_ref
  $hash{$key}->[0] = "Hallo Welt!";
}

"schluessel1" => "$arrayref1"

"schluessel1" => $arrayref1

$hash{schluessel1}->[0]; # erstes Element aus erstem Array
# oder
$$hash{schluessel1}[0]; # wie oben.
# oder du dereffenzierst
@array1_neu=@{$hash{schluessel1}}; # dabei ist das Array @array1_neu unabhängig von der Refferenz

$ perl -w -Mstrict
my $aa = "Hallo Welt";
my $ref = \$aa;

print $$ref, $/;

^D
Hallo Welt

my $str = 'Hallo Welt';
my $ref = \$str;
my $strref = "$ref";

print $$strref;

my %hash;
my $arrref = ['Hallo', 'Welt'];
$hash{ArrRef} = "$arrref";

print "@{ $hash{ArrRef} }";

foreach my $key (keys %hash) {
        print "$key: \t @{$hash{$key}}\n";
}