open(TEXTDAT,'<',@textkorpora[$textpos]);
while(<TEXTDAT>)
{
chomp($_);

$korpustext=$korpustext.$_;

}
close(TEXTDAT);