sub double
{
   $_[0] *= 2;
}

double($o->foo);

##</code><code>##

$o->foo+ *= 2;