# program to concaenate DNA sequences
# this is a comment

$DNA1 = 'AATTACTACGGCATTAGC';   #variable decleration
$DNA2 = 'GATGTAGTA'; 

print "Here are the original 2 DNA fragments:\n\n";  #prints to STDOUT
# ' and " are does the same thing

print $DNA1, "\n";
print $DNA2, "\n";

$DNA3 = "$DNA1$DNA2";  # or $DNA1.$DNA2 do the same thing

print "Here is the concatenation of the first 2 fragments:\n\n";
print "$DNA3\n";

exit;