@files = <../data/texts/*.txt>;
$file  = $files[int(rand(@files))];