$words{$key} .= exists $words{$key} ? "$val" : $val;

##</code><code>##

$words{$key} = $val;