my @output;
while (my $line = <$inputFH>) {
    my %wordCounter;
    for my $word (splitLine($line)) { # splitLine muss du machen
        ++$wordCounter{$word};
    }
    push @output, \%wordCounter;
}