use constant FOO => [qw(a b c)];
use constant FIRST => (0);
use constant SECOND => (1);

print FOO->[FIRST], $/;
print FOO->[SECOND], $/;