my $ident="aaa bbb ccc-ddd eee fff-ggg hhh iii-jjj kkk lll-";
my @id= split/-/,$ident;