while(<DATA>){
	chomp;
	my ($key, $value) = split;
	$gene{$key} = $value; # choroba's suggestion
}