my $statement = q{
  SELECT * 
    FROM BuyersSellers 
   WHERE FileNumber = ?
};

#force selectall_arrayref to return an arrayref of hashrefs
my %attr = (
  dbi_fetchall_arrayref_attr => {},
); 

my $BuyersSellers = $dbh->selectall_arrayref($statement, \%attr, $filenumber);

##</code><code>##

$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 };
}

##</code><code>##

foreach my $buysell (@$BuyersSellers) {
  next unless $buysell->{BuyerORSeller} eq 'BUYER';
  print qq{<tr class="$class"><td>$buysell->{PersonID}->{LastName}</td></tr>};
}