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

double($o->foo);