#!/usr/bin/perl -w

# Subroutine
sub concatenate_dna {
	my($dna1, $dna2) = @_;
	
	my($new_dna);

	$new_dna = "$dna1$dna2";

	return $new_dna;
}

print concatenate_dna('AAA', 'CGC'), "\n";

exit;