open en, "< ../TRAJ".$i."/RESULTS/en.dat";
        while (<en>){
                @line = split;
                $z[$l] = [@line];
                $l++;
        }
close en;