my @array = \my ($var1, $var2, $var3);
$$_ = 0 for @array;