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

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

my @policko = @{$r_hash->{'array'}};

print $policko[0];