$file = "project.txt";
open(FILE,"$file");
my %hash = ();
while(my $a=<FILE>) { 
    if($a=~/\tCM+(\d*)/io) { print "$1\n"; $hash{$1}=undef; }
} 
close FILE; 
open(OUTPUT,">> project.out");
while(my $key = each %hash) {
    print OUTPUT "$key\n";
}
close OUTPUT;