perl - 配列のハッシュのハッシュのトラバース

Question

ここにコードがあります：

#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my $var = { 
    Cars => {
        cars_name => [
            "GT500", 
            "Beetle",
            "P1800"
        ]
    },           
    Bikes => {
        Bikes_name => [
            "Pulsar",
            "Discover",
            "CBR"
        ]
    }
};

#Traversing the hash of hash of array
print "$var\n";
foreach my $k1 (keys %{$var}) {

    print "$k1\n";
    print $var->$k1;
    #foreach my $k2 (keys %{$var->$k1}) {

         #print"$k2\n";
    #}   
}   

cars_name と Bikes_name を印刷しようとすると、Unblessed 参照でメソッド Cars を呼び出すことができないというエラー メッセージが表示されます。どこで間違いを犯しているのかわかりません。ええと、これを理解することでprint $var->$k1; 問題を作成する行。ですから、どんな体でも私を助けてください。

ありがとう

Answer 1

 print $var->$k1;

つまり、オブジェクトのメソッドを呼び出しています。ハッシュにアクセスしたい：

 print $var->{$k1};