print "\@var has ", eval_array_size(\@var), " elements.\n";

	sub eval_array_size {
		my $aref = shift;
		return scalar @{$aref};
	}