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