my @fileArray;
       my $currIndex = 0;
       my $i;
       for ( $i = 0; $i < @$arrayRef; $i++ )
       {
          if ( (grep /\./, $$arrayRef[$i]) != "" )