use 5.010;
use strict;
use warnings;
use DBI;
use Data::Dumper;

my $druck = 'Druckerkontrolle.csv';
my $txt ='Druckerk.txt';
my %studio=();

open (DATEI, "$druck") or die "Datei konnte nicht geoeffnet werden: $!";
while (my $line = <DATEI>) {
	chomp($line);
	my @zeile= split ';', $line;
	$studio{$zeile[0]}{studioname}=$zeile[1];
	$studio{$zeile[0]}{pass1}=$zeile[2];
	$studio{$zeile[0]}{pass2}=$zeile[3];
	$studio{$zeile[0]}{beauty}=$zeile[4];
	$studio{$zeile[0]}{andere}=$zeile[5];
}
close DATEI;

open (TXT,'>',"$txt") or die "Datei kontte nicht geoeffnet werden: $!";
print TXT Dumper(\%studio)."\n";
close TXT;