my @some_arry_to_modify_by_the_sub;
my  @some_other_arry_to_modify_by_the_sub_with_the_same_structure_but_different_data;

#some call like ---> change_fee_1(@some_arry_to_modify_by_the_sub);
#or ---> change_fee_2(@some_arry_to_modify_by_the_sub)

sub change_fee_1 {
    change_fee_2(@_);
    $status = "change_fee_1 called $_[3], $_[5]";
}


sub change_fee_2 {
    $_[3] = 6;
    $status = "change_fee_2 called $_[3]";
}