use strict;
use warnings;

my $a = 1;
my $b = 1;
my $c = 1;
my $d;
my $e = 1;
my $f = 1;
my $g = 1;
my $h = 1;

print "$a$b$c$d$e$f$g$h\n";

##</code><code>##

    
Use of uninitialized value in concatenation (.) or string at x.pl line 14.
1111111


##</code><code>##

    
Use of uninitialized value $d in concatenation (.) or string at x.pl line 14.
1111111