Select Code to Download

  DB<111> say "$a,$b" while ($a,$b) = each %$h
3,3
...
  DB<121> p $]
5.024001
  DB<122>