sub f {$x=shift; return $x*0.1}