my @line1 = qw(C A B G F E);
my @line2 = qw(D B F);

my $line1 = join '', @line1;
my $line2 = join '', @line2;