use Person;
use strict;
my @employees = [];

foreach (qw(John Betty Larry Joe Sally Laura Bubba)) {

	my $person = Person->new();
	$person->name($_);
	push @employees, $person;
}

##</code><code>##

foreach my $employee (@employees) {

	print $employee->name(), "\n";
}

##</code><code>##

	print ref($employee), "\n";

##</code><code>##

package Person;

sub new {
	my $proto       = shift;
	my $class       = ref($proto) || $proto;
	my $self        = {};
	$self->{NAME}   = undef;

	bless ($self, $class);
	return $self;
}

sub name {
	my $self = shift;
	if (@_) { $self->{NAME} = shift }
	return $self->{NAME};
}

1;