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