my %constant_map = map { ($_, map_constant_name($_)) } qw(....) ;