Select Code to Download

sub change_var1_1 {
    my $i;
...
    }
    $status = "change_var1_1 called $var1[3], $var1[5]";
}

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