DB<1> @a = qw( a b c d a b )

  DB<2> @h{@a} = ()

  DB<3> x keys %h
0  'c'
1  'a'
2  'd'
3  'b'