sub func {
  my $r = shift;
  print ${$r}->{foo}; # sollte 'bar' ausgeben.
}