foreach my $dir (keys(%dirs)) { 
    
  my @array = (split (/\//,$dir)); 
  

  if ($array[-1] == 'dirname1') 
    { 
      $array[-1] = 'dirname4';  
      my $path = join('/',@array); 
        
      function1($dir,$dirs{$dir},$path ,$dirs{$path} ) 
    
    } 
   if ($array[-1] == 'dirname2') 
   {...} 
    . 
    . 
  
}