#/usr/bin/perl
use strict;
use warnings;

use constant {
  Undefined => 0,
  Page => 1,
  Index => 2,
};

{my %map = (
  Page => 'mypage',
  Index => 'myindex',
);

use Data::Dumper qw(Dumper);
print Dumper \%map;}

{my %map = (
  Page() => 'mypage',
  Index() => 'myindex',
);

print Dumper \%map;}