Perl/配列のループに関して教えてください。

my @shop = [ {'start_hour'=> '1100','shift'=> [1,2] }, {'start_hour'=> '1130','shift'=> [1,3] } ]
という配列があってそれをループで回したいのですが、

▼以下だとNG
foreach my $data (@shop){print $data->{start_hour};}

▼以下だと最初の1つだけOK
foreach my $data (@shop){print $data->[0]->{start_hour};}

という状況です。なぜ$data->{start_hour};で取得できないのでしょうか？
助けて頂けるとうれしいです★

No.1 ベストアンサー 回答者： Tacosan 回答日時： 2011/11/07 11:54

[] は (無名) 配列へのリファレンスを生成し, リファレンスはスカラです. つまり

my @shop = [ {'start_hour'=> '1100','shift'=> [1,2] }, {'start_hour'=> '1130','shift'=> [1,3] } ];
とすると, @shop は「2個の要素を持つ配列へのリファレンス」という 1個の要素しか持ちません.

やりたいことは, 本当は
my @shop = ( {'start_hour'=> '1100','shift'=> [1,2] }, {'start_hour'=> '1130','shift'=> [1,3] } );
だったりしませんか?

No.2 回答者： kuroizell 回答日時： 2011/11/07 12:00

配列に()か[]かの、びみょーな違いです。

my @shop = ( {'start_hour'=> '1100', 'shift'=> [1,2] }, {'start_hour'=> '1130', 'shift'=> [1,3] } );
foreach my $data (@shop) { print $data->{start_hour}; }

または

my $shop = [ {'start_hour'=> '1100', 'shift'=> [1,2] }, {'start_hour'=> '1130', 'shift'=> [1,3] } ];
foreach my $data (@{$shop}) { print $data->{start_hour}; }