sub new {
        my ($classname, $file) = @_;
        my @inhalt;
        my %dict;

        open( my $FH, '<:unix:encoding(UTF-8)', $file)
            or die "$file konnte von Trk_dict nicht geöffnet werden\n";
...
...