foreach $komp_dir(@komp_dir) {
    if (-d $komp_dir){
        $komp_dir = split /\//; # splitting what?