#!/usr/bin/perl

use strict; 
use warnings;

use Text::CSV;
use utf8;           # wg. Umlauten in __DATA__

my $csv = Text::CSV->new;
my $firstline = 1;                      # Flag ob erste Zeile 
my @keys; 
while (my $line = <DATA>) {                                     # eien Datenzeile aus __DATA__ lesen
        my $status  = $csv->parse($line);        # CSV-Zeile parsen
        warn $csv->error_diag() if not $status;  # falls etwas schief ging, dann Fehler ausgeben
        
        my @columns = $csv->fields();            # geparste Felder
        
        if ($firstline) {
                $firstline = 0;
                @keys = @columns;                                       # Feldnamen kopieren
                next;
        }
        
        print                                   # Ausgabe von
                "$_: ",                         #   Feldname
                shift(@columns),        #       Wert des Feldes aus Array lesen
                "\n"                            #       Return für Ausgabe
        for @keys;                              # für alle Feldnamen
}

__DATA__
ID,Vorname,Name,Buch,Preis,Verlag
1,Josef,Gans,"Das Komma (,)",23.50,"Büchle Verlag, Zürich"
2,Antonia,Zwerg,"Buchstaben, Worte sind Schall",18.20,OX-Verlag
3,Adam,Riese,"Schnee aus Witten, Reihe: Krimi und Leidenschaft",18.00,Oldschool-Verlag

#!/usr/bin/perl

use strict; 
use warnings;

use utf8;           # wg. Umlauten in __DATA__

my $firstline = 1;                      # Flag ob erste Zeile 
my @keys; 
while (my $line = <DATA>) {                                     # eien Datenzeile aus __DATA__ lesen
        my @columns = split /,/,$line;            
        if ($firstline) {
                $firstline = 0;
                @keys = @columns;                                       # Feldnamen kopieren
                next;
        }       
        print                                   # Ausgabe von
                "$_: ",                         #   Feldname
                shift(@columns),        #       Wert des Feldes aus Array lesen
                "\n"                            #       Return für Ausgabe
        for @keys;                              # für alle Feldnamen
}

__DATA__
ID,Vorname,Name,Buch,Preis,Verlag
1,Josef,Gans,"Das Komma (,)",23.50,"Büchle Verlag, Zürich"
2,Antonia,Zwerg,"Buchstaben, Worte sind Schall",18.20,OX-Verlag
3,Adam,Riese,"Schnee aus Witten, Reihe: Krimi und Leidenschaft",18.00,Oldschool-Verlag