>>357
http://perldoc.jp/func/map
> map BLOCK LIST
> map EXPR,LIST
書式は二種類ある。

use Data::Dumper;
local $Data::Dumper::Indent;

my @hoge = qw(AAA BBB CCC);
my @fuga;

@fuga = map({NAME => $_}, @hoge); # EXPR
print Dumper(\@fuga), "\n";
@fuga = map{ {NAME => $_} } @hoge; # BLOCK
print Dumper(\@fuga), "\n";