sub foo { return 3+$a };
$a = 1;
$a = foo($a) and print $a;