$file_full_path = "$path/$_"; 

if (-d $_){ 
   ...
   process($_); 

##</code><code>##

  $file_full_path = "$path/$_"; 

if (-d $file_full_path){ 
   ...
   process($file_full_path);

##</code><code>##

  process($SOURCEDIR);