my @array = ("heeey\n");
my %hash;

$hash{"array"} = \@array;
my $r_hash = \%hash;

print @{$r_hash->{'array'}}[0];