use MyDBI::people;

my ($person)   = MyDBI::people->search(first=>'John', last=>'Smith');
my @characters = $person->characters;