Perl module constant

use warnings;
use strict;
use feature 'say';

use constant one => 0;
use constant two => 1;

my @array = qw (foo bar baz);

say $array[one];
say $array[two];