如何在perl hash中存储数组

example:

?

my(@array) = ("hello", "world", "goodbye");
my(%hash) = ("k" => \@array);
my(@getArrayFromHash) = @{$hash{"k"}};
foreach my $value (@getArrayFromHash) {
?print "$value\n";
}