#!/usr/bin/perl
use strict;
use warnings;
use constant MTH_CONST => ["rot","blau","orange"];

for my $i (0..$#{MTH_CONST()})
{
  print "Farbe ($i) = ".MTH_CONST()->[$i]."\n";
}