Thank you very much for your help Tux!
I changed now the printing of the header too so that I do not need to hardcode the fields anymore:

my @columns = @{$csv->getline (*DATA)};
$csv->print (*STDOUT, \@columns);
[download]

Thanks again!
VE