%hash = map { chomp; my ( $a, $b) = split / = /; $a => $b } <INF>;