DB<17> @out=()

  DB<18> $x=2; push @out, { A =>$one } while my $one = $x--

  DB<19> x @out
0  HASH(0x31f07b8)
   'A' => undef
1  HASH(0x31f0410)
   'A' => undef
  DB<20> @out=()

  DB<21> $x=2; push @out, { A =>$one } while $one = $x--

  DB<22> x @out
0  HASH(0x32023b0)
   'A' => 2
1  HASH(0x3202428)
   'A' => 1
  DB<23>