$Hash{Array}[0] = "abc";
$Hash{Array}[1] = "xyz";
print "content-type: text/html\n\n";
print "$Hash{Array}[1]";

print $#Hash{Array};

$Hash{Array} = @Array;

use Data::Dumper;
my %hash = ();
my @array = qw(1 2 3 4 5);
$hash{Array} = \@array;

#anzahl der elemente des arrays im hash
my $anzahl = scalar(@{$hash{Array}});

#alle elemente ausgeben
foreach(@{$hash{Array}}){
  print $_;
}

# einzelnes element (4.) ausgeben
print $hash{Array}->[3];

# datenstruktur ausgeben
print Dumper(\%hash);

@array = (1..5);

$hash{array} = \@array;

print $#{${hash{array}}};

$HashTwo{ArrayTwo} = \@{$Hash{Array}};

$HashTwo{ArrayTwo} = \@{$Hash{Array}};

$HashTwo{ArrayTwo} = $Hash{Array};

$HashTwo{ArrayTwo} = [ @{ $Hash{Array} } ];