Select Code to Download

%t_hash = map{ split(/:/, $_, 2) } <DATA_FILE>;

%t_hash += map{ split(/:/, $_, 2) } $rec;

($key, $val) = split(/:/, $rec, 2);
$t_hash{$key} = $val;