my @fields = qw/ Farbe Baujahr ... /;
my %mapping;
for my $ix (0 .. $#fields ) {
    $mapping{ $fields[ $ix ] } = $ix;
}