%hash = map {$_, 1} 1..100000;