Select Code to Download

my @ret=();

...
}

return @ret;

  DB<116> $_={a=>1,b=>2,c=>3,d=>0}
 => { a => 1, b => 2, c => 3, d => 0 }
...

  DB<119> scalar tst()
 => 0