use 5.010;
use strict;
use warnings;
use DBI;

my $druck = 'Druckerkontrolle.csv';
my $txt ='Druckerk.txt';
my %rolle;

open (DATEI, "$druck") or die "Datei konnte nicht geoeffnet werden: $!";
while (<DATEI>){
	%rolle = split m/;/, <DATEI>,7;
	for my $entry ( sort keys %rolle ) {
			foreach (%rolle){print "$_ ";}
	}
}
close DATEI;

open (TXT,'>',"$txt") or die "Datei kontte nicht geoeffnet werden: $!";
print "\n\n:)\n";
for my $entry ( sort keys %rolle ) {
	foreach (%rolle){print TXT "$_ ";}
}
close TXT;