perl hash array 嵌套 push

$hash{"A"}=["pp"];
想变成：
$hash{"A"}=["p","q"];
因为 $hash{'A'} 是个 arrayref 所以 push 的时候需要解引用 push @{$hash{'A'}}, 'q';