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