use strict;

my %x = map { $_ => 1 } qw(a b c);