perlのハッシュキーの繰り返し

Question

私は以下のようなハッシュを持っています。

(
    'cars' => { 
     'citroen' => { 
      'sedan' => { 'color' => 'red' }, 
      'hatchback => { 'color' => 'white' }, 
      'truck' => { 'color' => 'black' }, 
     }, 
     'ford' => { 
      'sedan' => { 'color' => 'red' }, 
      'hatchback => { 'color' => 'white' }, 
      'truck' => { 'color' => 'black' }, 
     }, 
    }, 
) 

車のバージョンはセダン、ハッチバック、トラックです。これらのバージョンを入手して繰り返したいと思います。セダンを行う場合はハッチバックが行う場合は、トラックが行う場合は.... ...... ....

は、私が試した：

foreach my $key (keys %{ $myhash->{'cars'}->{$carCompany} }) { 
    print "\nCarVersion:" . $key; 
} 

しかし、私はこれらのバージョンを取得できませんでした。

Answer 1

私はそれを解決しました。

foreach my $key (keys %{$myhash->{'cars'}->{'ford'}}) { print $key."\n"; } 

これは与える：

sedan 
hatchback 
truck 

これは私が望んでいた出力しました。