my @People;
...
push @People, Employee->new(...);
...
push @People, Customer->new(...);
...
push @People, Manager->new(...);
...
# etc.
...
for my $person (@People)
{
    ...
    print $person->getFirstName;
    ...
}