main::(-e:1):   0
  DB<1> %foo = qw( a b c d )

  DB<2> @bar{ values %foo } = keys %foo

  DB<3> x \%bar
0  HASH(0x7fb23c8b94b8)
   'b' => 'a'
   'd' => 'c'