my $a = 1;
my $ab = 1;
my $abc = 1;
my $abcd = 1;

# what do we want to print?
print "$abcd";