Argh, how disgusting. But this should probably do the trick:

local ($a, $b) = ($b, $a)