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);