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