key1 = value1 key2 = value2 #### open( INF, 'file' ); %hash = map { my ( $a, $b) = split( / = /, chomp($_) ); $a => $b } ;; close( INF );