无法循环调用XML :: Generator

Question

我正在尝试使用for循环将数组@cpuinfo中的每个项放入单独的<cpu>元素中 在XML文档中 使用XML::Generator。

# @cpuinfo contain cpu information of multiple cpu's
use XML::Generator;

my $gen = XML::Generator->new( 'escape' => 'always', 'pretty' => 10 );

my $xml = $gen->servers(
   $gen->server(

      $gen->cpuinfo(

         foreach $r (@cpuinfo){
            $gen->cpu;
            (  {  $gen->cpu( @cpuinfo[$r] );
               }
            )
         }

      )
   ),
);