#!/usr/bin/perl -w

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

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

	return $new_dna;
}

my @array = ('AAA', 'CGC');
print concatenate_dna(@array),"\n";

exit;