sub change_var1_1 {
    change_var1_2(\@var1);
    $status = "change_var1_1 called $var1[3], $var1[5]";
}
sub change_var1_2 {
    my $var=shift;
    $var->[3] = 6;
    $status = "change_var1_2 called $var->[3]";
}