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