sub change_var1_1 {
    @var1 = change_var1_2(@var1);
    $status = "change_var1_1 called $var1[3], $var1[5]";
}