>  perl -w 
my (%a, %b, $c);  
$a{foo}="FIXED";
my $x = "$a{'foo'} $b{'bar'} $c";
__END__
Use of uninitialized value in concatenation (.) or string at - line 3.
Use of uninitialized value $c in concatenation (.) or string at - line 3.