for ($z=0; $z<scalar (@File); $z++) { ... }