perl map数组成散列

jrhmpt01:/root/wx# cat s9.pl 
use Data::Dumper;
@chatroom_id =qw/a b c d e f g/;
$var=[map { {UserName=>$_,ChatRoomId=>""} } @chatroom_id ];
	 
	   print "1-msg---------
";
	     my $var= Dumper($var);
	   print $var;
	   print "
";
	   print "1-msg---------
";

jrhmpt01:/root/wx# perl s9.pl 
1-msg---------
$VAR1 = [
          {
            'UserName' => 'a',
            'ChatRoomId' => ''
          },
          {
            'UserName' => 'b',
            'ChatRoomId' => ''
          },
          {
            'UserName' => 'c',
            'ChatRoomId' => ''
          },
          {
            'UserName' => 'd',
            'ChatRoomId' => ''
          },
          {
            'UserName' => 'e',
            'ChatRoomId' => ''
          },
          {
            'UserName' => 'f',
            'ChatRoomId' => ''
          },
          {
            'UserName' => 'g',
            'ChatRoomId' => ''
          }
        ];

1-msg---------