sub switch_var { $_[0] = double $_[2] }