foreach my $child ( $vars{cw}->children ) {
  next unless $child->is_dir;

  say "dyetya is $child";
  my $base_dir = $child->basename;
  say "base dir is $base_dir";
  $vars{$base_dir} = path(  $child );
  say "dir is $vars{$base_dir}";
  

}