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