use 5.008;
use strict;
use warnings;

use constant MTH_CONST => ["rot","blau","orange"];

print ${\MTH_CONST}->[0];