#!/usr/bin/perl -w

# Array as argument
sub concatenate_dna {
	my(@genes) = @_;
	
	my($new_dna);

	$new_dna = $genes[0].$genes[1].$genes[2];

	return $new_dna;
}

my @array = ('AA', 'CC');
print concatenate_dna(@array, 'GG'),"\n";

exit;