#!/usr/bin/perl -w
use strict;
my %h;
$h{okay} .= "Hello";  # No warning (for me, at least)
warn "----\n";
$h{warn}= $h{warn} . "Hello";  # Gives a warning

##</code><code>##

----
Use of uninitialized value in concatenation (.) at line 6.