sub maxFileDate {
  my  ( $filePrefix_In, @entries_In, $yr_ref, $mth_ref,  $dt_ref );
   
  ( $filePrefix_In, @entries_In, $yr_ref, $mth_ref, $dt_ref )  = @_ ;
  
  
   my   $entry;
   my   @fields;
   my   @fileName;
   
   print "fileName Prefix: " .  $filePrefix_In . "\n" ;
   ##print Dumper @entries_In  ; 
   
   
   my $maxdate = 20000101;
   foreach  $entry (@entries_In) {  
     ##print  "$entry  \n  ";
     chomp $entry;
     @fields = split /\s+/, $entry;
     if ( $fields[0] =~ m/^-/)  {
       # ** ** ** **  
       #this a file entry
       if ($fields[-1] =~ m/^$filePrefix_In/)  {
          @fileName  =  split /\.|_/ , $fields[-1];
          print Dumper @fileName   ; 
          print "file name: " .  $fields[-1] .   "   date part: " .  $fileName[4]. $fileName[5]. $fileName[6]. "\n";
          if (  ('20'.  $fileName[4]. $fileName[5]. $fileName[6]) >  $maxdate ) {
              $maxdate  =  ('20'.  $fileName[4]. $fileName[5]. $fileName[6]) ;
              $$yr_ref   = $fileName[4];
              $$mth_ref  = $fileName[5];
              $$dt_ref   = $fileName[6];
          }
       }   ##file name like 
     }   ##file entries
       
       
   }   ## for each entry       
   
   print "yr " . $yr_ref  . "\n" ;
   print "mth". $mth_ref . "\n" ;
   print "dt " . $dt_ref  . "\n" ;
   
   print "yr " . $$yr_ref  . "\n" ;
   print "mth". $$mth_ref . "\n" ;
   print "dt " . $$dt_ref  . "\n" ;
   


   ##$maxdate;

}  # maxFileDate