sub sort_1 { 
#the array given is directly modify 
  my $ref_partition = shift; 
  my $height=0; 
  my @array = (); 
  for(my $j=0;$j <= $#$ref_partition; $j++){ 
		my $col = $ref_partition->[$j]; 
   for(my $i=0;$i <= $#$col; $i++){ 
    my @test = sort { $a->[7] <=> $b->[7] } @{$col->[$i]}; 
    $array[$i] = [$test[0],$height,@test[2..$#test]]; 
    #$i++; 
    $height += $col->[$i][3]; 
   } 
 } 
   $ref_partition = \@array; 
}

sub sort_1 {  
#the array given is directly modify  
  my $ref_partition = shift;  
  my $height=0;  
  my @array = ();  
  for(my $j=0;$j <= $#$ref_partition; $j++){  
		my $col_1 = $ref_partition->[$j];  
 my $col = sort { $a->[7] <=> $b->[7] } @{$col_1}; 
# After that i need to make $col to have a reference, that i will pass in "i" loop. How i can do it? 
   for(my $i=0;$i <= $#$col; $i++){  
    my @test = @{$col->[$i]};  
    $array[$i] = [$test[0],$height,@test[2..$#test]];  
    #$i++;  
    $height += $col->[$i][3];  
   }  
 }  
   $ref_partition = \@array;  
}

my @value= ($name,@arg);  
$global_array[$j] = [] unless( defined $global_array[$j]); 
      $global_array[$j][$i] = \@value; 
........ some code  
and then it return 
$partition=\@global_array; 
 
now i pass $partition as a parameter to my function. In this case how i can perform the sort? 
 
sub sort_1 {  
#the array given is directly modify  
my $ref_partition = shift;  
............. 
............. # 
 my previous sort_1 function code 
}

sub sort_1 { 
  my $ref_partition = shift; 
  my $height=0; 
  my @array = (); 
 
  for(my $j=0;$j <= $#$ref_partition; $j++){ 
	  my $col = sort { my $a->[7] <=> my $b->[7]} $ref_partition->[$j];  
	  for(my $i=0;$i <= $#$col; $i++){ 
#   array = host i j x y w h w*h mem time group_ID 
    my @test =  @{$col->[$i]}; 
    $array[$i] = [$test[0],$height,@test[2..$#test]]; 
    $height += $col->[$i][3]; 
  } 
} 
   $ref_partition = \@array; 
}

sub sort_1 { 
  my $ref_partition = shift; 
  my @array = (); 
  my $i; 
  my $j; 
  my @test; 
  for($j=0;$j <= $#$ref_partition; $j++){ 
   my $col_1= $ref_partition->[$j]; 
   my @col = sort { $a->[7] <=> $b->[7]} @{$col_1}; 
   my $height=0; 
   for($i=0;$i <= $#col; $i++){ 
    my @test   =  @{$col[$i]}; 
    $array[$i] = [$test[0],$height,@test[2..$#test]]; 
    $height += $col[$i][3]; 
     } 
    $ref_partition->[$j] = \@array; 
    print Dumper $ref_partition->[$j]; 
  } 
}

My Damper print value is  
$VAR1 = [ 
          [ 
            'edel-55.0', 
            0, 
            '534', 
            '807', 
            '430938', 
            '40401MB', 
            '7506207.000000', 
            0 
          ], 
          [ 
            'edel-62.5', 
            807, 
            '534', 
            '673', 
            '359382', 
            '33692MB', 
            '7501276.000000', 
            2 
          ], 
          [ 
            'edel-62.0', 
            1480, 
            '534', 
            '568', 
            '303312', 
            '28436MB', 
            '7487031.000000', 
            2 
          ] 
        ]; 
$VAR1 = [ 
          [ 
            'edel-55.1', 
            0, 
            '579', 
            '519', 
            '300501', 
            '28172MB', 
            '7505535.000000', 
            0 
          ], 
          [ 
            'edel-62.3', 
            519, 
            '579', 
            '523', 
            '302817', 
            '28389MB', 
            '7500000.000000', 
            2 
          ], 
          [ 
            'edel-62.1', 
            1042, 
            '579', 
            '523', 
            '302817', 
            '28389MB', 
            '7500312.000000', 
            2 
          ] 
        ]; 
$VAR1 = [ 
          [ 
            'edel-59.1', 
            0, 
            '477', 
            '541', 
            '258057', 
            '24193MB', 
            '7510249.000000', 
            1 
          ], 
          [ 
            'edel-59.0', 
            541, 
            '477', 
            '478', 
            '228006', 
            '21376MB', 
            '7497292.000000', 
            1 
          ], 
          [ 
            'edel-62.4', 
            1019, 
            '477', 
            '552', 
            '263304', 
            '24685MB', 
            '7485529.000000', 
            2 
          ] 
        ];