perl - Catalyst MVC での異常なプッシュ動作

Question

私は次のコードを期待します

my @array;
for my $rapport ( qw( value1 value2 value3 ) ) {
    push @array, { key => $rapport };
}

生産する:

$VAR1 = [
      {
        'key' => 'value1'
      },
      {
        'key' => 'value2'
      },
      {
        'key' => 'value3'
      }
    ];

ただし、このコード セグメントを Catalyst MVC で実行すると、次のようになります。

$VAR1 = [
          {
            'key' => [ 'value', 'value2', 'value3' ]
          },
        ];

誰かが私に理由を説明してもらえますか?

編集:同じ問題を抱えている人は、例を追加してもらえますか? コードをいくつか変更した後は再現できませんが、5 回投票されているため、他のユーザーもこの問題を経験していると思いますか?