perl hash array 嵌套 push

$hash{"A"}=["pp"];

想变成：

$hash{"A"}=["p","q"];

因为 $hash{'A'} 是个 arrayref 所以 push 的时候需要解引用 push @{$hash{'A'}}, 'q';