($File[$i], $Name[$i], $Keywords[$i]) = split(/:/);
$i ++;

##</code><code>##

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