my %hash = map { $$_[0] => $$_[1] } @array;