DoSomething(foo, bar, \$Object);
print $Object; # prints "42"

sub DoSomething
{
   my $foo = shift;
   my $bar = shift;
   my $Object = shift;
   $$Object = 42;
}