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

##</code><code>##

        ($komp_dir = $fields[6]) =~ /(^\d*)_(\w*)$/;

##</code><code>##

foreach $komp_dir(@komp_dir) {
    if (-d $komp_dir){
        my @fields = split /\//, $komp_dir;
        $fields[6] =~ /(^\d*)_(\w*)$/
            and print "$1\n";
    }
}