while ($line = <$fh>) {
    $line = prepareLine($line);
    my @splitted = split(/ /, $line);
    my %hash;
    for $i (@splitted) {
        $hash{$i} += 1;
    }   
    push(@zeilen, \%hash);
}