%hash = (%hash, (map /(\S+)\s+(.*)/, <FILE>));

##</code><code>##

for (<FILE>) {/(\S+)\s+(.*)/ && $hash{$1} = $2}