say Dumper(\%{ {map { $_ => 'fish' } qw(one two red blue)} } );
             ^ ^                                         ^ ^
             |-|-----------------------------------------|-|