open(STDIN1, "<icd_meas_child.txt")
                or die "Cannot open file";

            @row1 = <STDIN1>;

            for (@row1[$done1])
                 {
                   chop(@row1);
                   foreach (@row1[$count1])
                    {
                      @column1 = split(/\,/,@row1[$count1]);
                       $sat_name      = @column1[0];
                       $meas_name     = @column1[1];
                       $parent_meas   = @column1[2];
                       $start_bit_no  = @column1[3];


                       print ("$sat_name;");
                       print ("$meas_name;");
	               &DESCRIPTION;
 	               &DATA;
                       print ("$size_bits_no;");
                       &DATA1;
                       print ("$monitor_type;");
                       print ("$parent_meas;");
                       &BIT;
                       print ("$start_bit_no;");
                       &SUBSYSTEM;
                       &BOX;
                       print ("$lsb_proc_ind;");
                       print ("$blank");
                       print ("\n");
                       $count1++;
                    }

                 $done1++;
                 }
close STDIN1;
sub BIT #routine to sort numbers
{

if ($meas_name = $parent_meas)
  {

    my @nums = $start_bit_no;
    my @index= sort { $nums[$a-1] <=> $nums[$b-1] } 1..@nums;
    #$index++;
    print join "\n","@index;",'';

  }

}