Help for this page
my $multiple = ref $_[0]; ... foreach my $name ( keys %constants ) { ... }
use constant undef, 'x';