{
    local $/;
    open(TEXTDAT,'<',$textkorpora[$textpos]);
    my $korpustext = <TEXTDAT>;
    close(TEXTDAT);
}