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

##</code><code>##

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

##</code><code>##

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