Как можно цикл через константу perl

Я хочу сделать то же самое, что и ниже

my @nucleotides = ('A', 'C', 'G', 'T');
foreach (@nucleotides) {
    print $_;
}

, но с помощью

use constant NUCLEOTIDES => ['A', 'C', 'G', 'T'];

Как я могу это сделать?