use autodie;

my @z = do {
    open my $en, '<', "../TRAJ$i/RESULTS/en.dat";
    map [ split ], <$en>;
};