use constant MTH_CONST => ["rot","blau","orange"];
for my $i (0 .. $#{ MTH_CONST() }) {
    say MTH_CONST->[$i];
}
__END__
rot
blau
orange