my $a = 0;
while (@fNameArray)
    {
    if(-d substr($fNameArray[$a], 1, -2))
       {
       $dirName = substr($fNameArray[$a], 1, -2);
#directory name is allocated to a scalar for reuse.

       }#end if
       elsif(! -d substr($fNameArray[$a], 1, -2))
           {
     $data = read_file($dirName.'/'.substr($fNameArray[$a], 1, -1));

           }#end elsif
    $a++; 
    }#end while