my %h = map +($_ => 1), @a;