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

open(IN, "<$file") or die $!;
   @data = <IN>;
close(IN);