DB<111> say "$a,$b" while ($a,$b) = each %$h
3,3
10,10
34,34
7,7

  DB<112> say "$k,$v" while ($k,$v) = each %$h
Z,3
a,10
b,34
A,7

  DB<113> my ($a,$b); say "$a,$b" while ($a,$b) = each %$
Z,3
a,10
b,34
A,7

  DB<114> while( ($a,$b) = each %$h ) { say "$a,$b" }
3,3
10,10
34,34
7,7

  DB<115> while( my ($a,$b) = each %$h ) { say "$a,$b" }
Z,3
a,10
b,34
A,7

  DB<116> dd $h
{ a => 10, A => 7, b => 34, Z => 3 }

  DB<117>

...

  DB<120>  dd [($a,$b) = each %$h ]
[3, 3]

  DB<121> p $]
5.024001
  DB<122>