package CST2;
use strict;
use warnings;
use Exporter; 
our @ISA = qw(Exporter); 
our @EXPORT = qw(ArrayCount); 


sub ArrayCount(\@) {
	(my $array_Ref, undef) = @_;
	my $ct;
	foreach my $element (@{$array_Ref}) {
		$ct++
	}
	$ct;
}

1;