main::(-e:1):   1
  DB<1> %h = ( a=>1, b=>2, c=>3 );
  DB<2> %i = ( x=>1, y=>2, z=>3 );
  DB<3> sub test{ my( %h, %i ) = @_; print '%h: ', scalar keys %h, ' %i: ', scalar keys %i; };
  DB<4> test( %h, %i );

  DB<5> %h: 6 %i: 0