use MyObject;

# --------------------------------
# main.pl
# --------------------------------


my $object = undef;

$object = new MyObject;

$object->fillIt();

doSomething($object->A);


sub doSomething
{
	my $arrayReference = shift;
	
	foreach my $hashReference (@$arrayReference)
	{
		# do something
	}
}

$object->cleanUp();

exit 0;