sub foo {
 {local $SWAP = 1;alias $alias => $original;}
 ...
}