use constant {
    ZIELORT => 0,
    STARTORT => 1,
    TERMINAL => 2,
    DATUM => 3,
    ABFLUGZEIT => 4,
    ANKUNFTSZEIT => 5
};

$test = {
         '336632' => [
                       'Berlin',
                       'Bielefeld',
                       'B',
                       '01.09.2004',
                       '16:00',
                       '22:00'
                     ],
       };

print $test->{336632}->[ZIELORT];