$ perl -MData::Dump -e '@a = qw{b c a}; %h = map { $_ => 1 } @a; dd \%h'
{ a => 1, b => 1, c => 1 }