Select Code to Download

sub map_constant_name {
  my ($name) = @_ ;
...

  return $@ ? undef : $val ;
} ;

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