use strict;
use warnings;
use Data::Dumper qw(Dumper);

sub nurKleinbuchstaben{
	my $string = shift(@_);
	
	$string = lc($string);
	$string =~ s/\W+|\d|_/ /g;
	$string =~ s/^\s+|\s+$//;
}

my $datei = 'test.txt';
open(my $inputFH, '<', $datei) or die "Fehler: $!";
my @zeilen = $inputFH;

foreach (@zeilen) {
	nurKleinbuchstaben($_);
}

for my $zeile (@zeilen) {
	my %wordCounter;
	for my $word (split(/ /, $zeile)) {
		++$wordCounter{$word};
	}
	#  $zeile mit Referenz auf den Hash ersetzen
	
}

close($inputFH);