say Dumper(\@{ [map { $_ => 'fish' } qw(one two red blue)] } );