<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/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;

</pre></body></html>