perl - ハッシュ要素のハッシュ間の角度を計算する方法

Question

for および while サイクルを使用してすべての要素を通過する以外に、ハッシュの到達可能性のハッシュに関する問題があります。ハッシュのハッシュは次の構造にあります。

$atomsArray{$number} = {
      "x" => $x, 
      "y" => $y,
      "z" => $z
};

for my $number(sort keys %atomsArray){
   while ((my $key, my $value) = each(%{$atomsArray{$number}})){
       #Counting angles between atoms(x,y,z)
   }

これより良い方法はありますか？