my $Lista = $obj->readDirectory("txt");
    %List = %$Lista; ???????????????????????????