my $style ="my_";
foreach$variable (sort @array){
 my $id = XMLP::GetElementAttribute($variable,"ID");
 $sub .=  "_sub" ;
 $sub .=  $id ;
 }
 $style .= $sub;