while(@array) {
   $hash{shift @array} = shift @array;
}