#!/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