my @files = <../data/text/*.txt>;
my @display_files = map /([^\/]+)\.txt/, @files;
Encode::from_to($_, "ISO-8859-7", "utf8") for @display_files;
my $passage = param('select') || "&#913;&#961;&#967;&#953;&#954;&#942; &#931;&#949;&#955;&#943;&#948;&#945;!";
    
    Encode::from_to($passage, "utf8", "ISO-8859-7") if param();

    open(FILE, "<../data/text/$passage.txt") or die $!;
         local $/;
         $data = <FILE>;
    close(FILE);

    Encode::from_to($passage, "ISO-8859-7", "utf8");