$ perl -Mstrict -Mwarnings -MData::Dump -e 'dd [map { my $y = uc; {$y => 1} } "a".."c"]'
["A", 1, "B", 1, "C", 1]

$ perl -Mstrict -Mwarnings -MData::Dump -e 'dd [map { my $y = uc; +{$y => 1} } "a".."c"]'
[{ A => 1 }, { B => 1 }, { C => 1 }]