#create an array of characters
@bases = ('A','C','G','T');

#print each individual character
foreach $element (@bases) {
	print $element, "\n";
	#print $element,"  ";
}

print "\nThe array has ";
print scalar @bases, " elements\n";

$Len = scalar @bases;
for ($i=0; $i< $Len; $i=$i+1) {
	print $bases[$i]," ";
}

exit;