open( my $FH, "<", $filename )
  or die "Error: couldn't open file '$filename': $!\n";

my %kostenstellen = ();
while( defined my $kostenstelle = <$FH> ) {
  chomp( $kostenstelle );
  $kostenstellen{ $kostenstelle } ++;
} # while
close( $FH );