my ($var1, $var2) = ($value1, $value2);
for (@array) {
    ($var1, $var2) = ($var2, $var1);
}