sub f {
  my $ref=shift;
  ...
  $$ref=4711;
}