sub fix_building {
  return 0 unless $building eq 'FOO';
  $building eq 'BAR';
  print_rec;
  return 1;
}

DBParserThingy::loop ( \&fix_building );