$importfile = "report_all.txt";
			
	open (ROHDATEN, "$importfile"); #einlesen der kompletten daten


		while (<ROHDATEN>) {
						@feld = split (/;/, $_);
						$Dateityp = lc(@feld[2]);
						$Anzahl{$Dateityp} += 1;
						$Groesse{$Dateityp} += @feld[1];
		}

	close (ROHDATEN);

		foreach $Dateityp (keys %Anzahl) {
				print "$Dateityp;$Anzahl{$Dateityp};$Groesse{$Dateityp}\n";

		}