my %draw = (map {$_ => 1} qw/ ... /);