DB<108> @array = ( a => 1, b => 2 )
 => ("a", 1, "b", 2)

  DB<109> $hash{shift @array} =shift @array while @array

  DB<110> \%hash
 => { 1 => "a", 2 => "b" }