Select Code to Download

@fields = qw(
  viewpositionid institution department confirstname
...
  budgetsalary statefundsources fedfundsources
  statebudgetcat priclass subip thetime approved
);

foreach my $rec (@ODB) {
  chomp($rec);
...
  print DATABASE join "\t", @db_rc{@fields};
  print DATABASE "\n";
}