#!/usr/bin/perl
use strict;

my $komp_dir ='/Users/mydirectory/Desktop/BioinfDev/SequenceAssemblyProject/KOMP/';
my @komp_dir = glob("/Users/mydirectory/Desktop/BioinfDev/SequenceAssemblyProject/KOMP/*");

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