sub change_var1_1 {
    my $i;
    my @foo = change_var1_2(@var1);
    for ($i = 1; $i <= 81; $i++) {
        $var1[$i] = $foo[$i];
    }
    $status = "change_var1_1 called $var1[3], $var1[5]";
}

##</code><code>##

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