$statement = q{
  SELECT * 
    FROM People 
   WHERE PersonID = ?
};

my $sth = $dbh->prepare($statement);

foreach my $buysell (@$BuyersSellers) {  
  $sth->execute($buysell->{PersonID});    
  my $row = $sth->fetchrow_hashref('NAME_lc');
  $buysell->{PersonID} = { %$row };
}