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

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

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