Select Code to Download

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

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