my @First=split /\./,$a||shift;
 my @Second=split /\./,$b||shift;
 foreach(0..(($#First>$#Second)?$#Second:$#First))