$nooffiles = @logfiles;
$fileindex=0;
while ($fileindex <$nooffiles )
{
open hanr ,">", "$logfiles[$fileindex]" or die "could not open logfile .. $!";
$fileindex++;
}