$a = 5;
$add2= sub{ $b = shift; $$b+=2;};
&$add2(\$a);