foreach $lf(@Highfolders)

use File::Util;
my($lf) = File::Util->;new();
my(@Lowfolders) = $lf->;list_dir($lf,'--dirs-only);
}