#!/usr/local/bin/perl -w
#

############
$INFILE = "Beispiel.txt";
$OUTFILE = "output.txt";

open(FILEIN,"$INFILE") or die "Fehler beim Oeffnen von ".$INFILE."\n";
open(FILEOUT,"> $OUTFILE") or die "Fehler beim Oeffnen von ".$OUTFILE."\n";
	while (<FILEIN>){
		@Zeile = $_;	
		while( ($schluessel, $wert) = each %hash) {
			if (@Zeile == $schluessel) {
				%hash = (@Zeile => +1);
			}
			else {
				%hash = (@Zeile => 1);
			}
			print "$schluessel => $wert\n";
		}
	}	
close FILEIN;
close FILEOUT;