local(*S1, *S2);
...as in your first example...