my (%fileInfo) = find(\&wanted,  @directories);

sub wanted

{  

 if (!(-d)) {

  
    $fileName = $File::Find::name;

    $fileName =~ s/\//\\/g;

    $fileSize = ( -s $fileName);
#    printf "file 1 $fileName $fileSize\n";


   if (!(exists $fileInfo{$fileName})){

    $fileInfo{$fileName} = $fileName;

    printf "$fileInfo{$fileName}\n";

   }


  }


return %fileInfo;


}