Select Code to Download

sub foo {
   my ($foo) = @_;
   print($foo->{bar}, "\n");
}

sub foo {
   my %foo = @_;
   print($foo{bar}, "\n");
}

HV* hv = newHV();
SV* rv = newRV_noinc(hv);  /* noinc to abandon our ref to the HV */
...
XPUSHs(sv_2mortal(rv));   /* Mortalize to abandon our ref to the RV */

...