my %h = map {; $_ => $_ } @arr;
             ^
             |
       force a block.

##</code><code>##

my @a = map +{ $_ => ord($_) }, @arr;
            ^
            |
      force a hash