for my $i (0..$#{@{$ChargesArray}}) {
        my @temp_array = @{$ChargesArray->[$i]};
        my $buff_4 = "@temp_array";
#        print "@temp_array\n";

 }