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";